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8 USEFUL PRODUCTS 


TIMEDATE 80 


@ANALOG-80: 


@ DIGITAL MULTIMETERS PLUGGEO INTO YOUR TRS-80""! 
Measure Temperature. Voltage, Current. Light. Pressure, etc 
Very easy to use for example. let’s read input channel #4 10 
OUT 0.4 ‘Selects input #4 and also starts the conversion 20 
A=INP(O) ‘Puts the result in variable “A Voila! 
Specifications Input range. 0-5¥. to 0-500V Each channel 
can be set to a different scale 

Resolution 20mV (on 5V range) Accuracy 8 bils ( 5%). Port 
Address’ jumper selectable Plugs into keyboard bus or E/I 
(screen printer port). Assembled and tested 90 day warranty 
Complete with power supply. connector. manual $139 


@ PRINTSWITCH 


Printer selector switch module allows two printers to be connected to a 
single TRS-80 system. Printer to be used is selected by switch. 

eTHE PROBLEM of plugging and unplugging printer cables in order to 
select one printer or the other is eliminated by PRINTSWITCH. 

eSmall, unobtrusive design keeps your system unclutered. Conveniently 
located switch allows instant access to either of your printers. 

Will work with any two similar or dissimilar parallel printers or printing 
systems including: dot matrix, daisy wheel, plotters, TRS-80 converted 
selectrics, etc 

eBUSINESS SYSTEMS benefit from the ability to readily select one of two 
printers. For example a high speed dot matrix printer can be used for data, 
program listings and first drafts and a slower correspondence quality 


6) TIMEDATE 80 


eComplete, self contained ‘‘true'’ real time clock/calendar, TIME- 
DATE 80 continues to keep accurate time and date when the computer is 
turned off or experiences a power failure. 

¢SET IT ONCE, and it's two replaceable ‘AAA’ batteries (not included) 
keep TIMEDATE 80 running in excess of 3 years. 

The instant power is applied to the TAS-80, TIMEDATE 80 provides 
accurate MO/DATE/YR, DAY of WEEK, HR:MIN:SEC and AM/PM 
information. 

REPLACES the computer's internal clock. If power fails and then 
restores, only TIMEDATE 80 will update the system with current TIME and 
DATE information, an impossibility with the computer's internal clock. 
*QUARTZ CRYSTAL based, TIMEDATE 80 is accurate to within a few 
seconds per month 


@ EXPANDABUS 


Connect all of your TAS-80 Model | devices simultaneously on the 40-pin 
TRS-80 expansion bus. End the hassle of plugging and unplugging your 
accessories, 

*ANY DEVICE that normally plugs into the Model ! TRS-80 keyboard edge 
connector can be plugged into EXPANDABUS 

«For those with an Expansion Interface, EXPANDABUS plugs into the 
Expansion Port connector (located on the left side panel, to the right of the 
printer port) or between the keyboard and expansion interface 
*EXPANDABUS is made of the highest quality materials. All god plated 
contacts and high grade ribbon cable ensure the most reliable connection 
possible 

Protective covers are provided for each connector (as shown on X4 in 


printer utilized to generate letters, reports, etc. 

*SIMPLE TO CONNECT. Plugs directly into fhe parallel printer port of your 
TRS-80 and provides an edge connecter for each of your two printer 
cables. 

«PRINTSWITCH comes completely assembled, tested, and ready to use 
with connector and instructions. Printswitch A is for model | and Ill, 
PRINTSWITCH B is for model II. Please specify when ordering. PRINTS— 
SWITCH Aor B..., ONLY $59.00 


® PRINTER EXTENDER CABLE 


Adds 4 ft. to your existing printer cable. Our extension connects between 
your Expansion Interface and your present printer calbe. 

High quality Cable and gold plated contacts ensure retiable connection. 
ONLY $27.50 


°PLUGS DIRECTLY into the TRS-80 keyboard and gives the ‘TIMES’ 
function even without an Expansion Interface. In disk systems, it plugs 
into the Expansion Interface. An optional ‘‘Y’’ connector provides for 
further expansion. 

eTIMEDATE 80's small size keeps the computer table tidy. If you have an 
Expansion Interface, TIMEDATE 80 literally ‘‘DISAPPEARS'’ by slipping 
into the empty space in the bottom of the interface. 

Two sets of software, on cassette, come with TIMEDATE 80. ‘'TIME- 
SET" is a step by step set of simple instructions tor setting TIMEDATE 80. 
“TIMES’’ is a set of poke routines which patches any Disk Operating 
System to Level || TIMES to read TIMEDATE 80 and is easily incorporated 
into any user software. ‘‘TIME$'* will always print the time and date when 
LISTING a program—great for keeping track of revisions! 

*INVALUABLE for providing accurate date and time information in 
business applications such as payrolls, receipts, etc 

*FULLY ASSEMBLED and tested, 90 day warranty, complete with 
instructions and software on cassette, $95.00, ''Y'' option, add $12.00. 


photograph) that can be removed and replaced as neaded. . 

eFOUR STANDARD CONFIGURATIONS will fill almost any requirement. We 
recommend that you order the next greater configuration above that which 
your application demands so that any future expansion will be provided 
for. 

Two or more EXPADABUS cables can be ganged where more than five 
connections are needed. Custom configurations are also available. Call us. 
X2.,.$29 x3...844 X4...§59 X5...$74 


@ THE ALPHA GREEN SCREEN 


IBid and all other mainframe houses use green screen monitors. The 
advantages of the green video screen are now widely known. Every TRS- 
80 user should enjoy the benefits that it provides. 

THE ALPHA GREEN SCREEN is the only CURVED screen MOLDED exactly 
to the picture tube shape. It is cut precisely to cover the exposed area of 
the tube, 

eTHE FILTER MATERIAL that we use is just the right shade and density 
The result is a screen very pleasant to the eye 

¢IMAGE CONTRAST is increased and screen legability improved. 

Eye fatigue is reduced by our eye-saving green colar and the enhanced 
readability of text. 

¢Your system takes on a distinctively professional look. 


@ INTERFACER-80: 


INTERFACER-80: the mos! powerful Sense/Contrai mocule 

#8 industrial grade relays. single pole double throw isolated 
contacts: 2Amp. @ 125 Volts. TTL latched outputs are also 
accessible to drive external solid state relays 

#8 convenient LEDs constantly display the relay states 
Simple “GUT’* cammands (in basic) contro! the 8 relays 

«8 optically-isolated inputs for easy direct interfacing to 
external switches, photocells. keypads. sensors. etc 
Simple “INP’’ commands read the status of the 8 inputs 
Selectable port address. Clean. compact enclosed design 
Assembled, tested, 90 days warranty. Price includes power 
supply, cable, connector. superb user's manual $159 


eTHE ALPHA GREEN SCREEN is the easiest and fastest to install, no 
fitting, taping, or gluing necessary. Can be removed instantly for cleaning 
*SATISFACTION GUARANTEED-try the ALPHA GREEN SCREEN for 14 
days. If, for any reason you are not delighted with it, return it for a full and 
immediate refund. 


*THE ALPHA GREEN SCREEN ONLY $12.50 Please specify mode! 


@) CHAIN BREAKER 


LET THE ‘CHAIN BREAKER'' FREE YOUR MINI-DRIVES. 
End the daisy-chain mess once and for all, Fits all mini- 
drives: Percom, Aerocomp. Shugart, Micropolis, MT!, Vista, 
Pertec, Siemens. BASF. Easy to install: just remove the 
orive cover, plug in the ‘CHAIN BREAKER” and repiace the 
caver. Voila!!! 

Now you can change and move your drives around without 
disassembly. Keep the cover on and keep the dust oul. High 
reliability gold plated contacts. computer grade 34 
conductor cable. Tested and guaranteed. 


Get one for each drive. only $13.95 
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COD: ADD $2 00 EXTRA 


r= ai ALL ORDERS SHIPPED FIRST CLASS MAIL 
WE ACCEPT VISA, MASTER CHARGE CHECKS. M.0 


85 71A; 79th St., Woodhaven, N.Y. 11421 


QUANTITY DISCOUNTS AVAILABLE 
NY. RESIDENTS ADD SALES TAX 


PUBLISHER 
Howard Y. Gosman 


BUSINESS MANAGER 
Steven M. Kahan 


EDITOR-IN-CHIEF 
Hubert S. Howe, Jr. 


BUSINESS EDITOR 
Peter Shenkin 


MANAGING EDITOR 
Martin Leffler 
CONTRIBUTING EDITORS 
Robert M. Richardson 
Gordon Speer 

A. Douglas Werbeck 

A. A. Wicks 

ADVERTISING DIRECTOR 
Kevin Rushalko 


ADVERTISING-SALES 
Elaine Traum 


ART DIRECTOR 
Edmund Khaleel 
QUALITY CONTROL 
Harvey Cohen 


OFFICE MANAGER 
Beatrice Kahn 


SOFTWARE MANAGER 
Darlene Bell 


SALES MANAGER 
Michelle Neumann 


INVENTORY CONTROL 
Alan Friedman 


SHIPPING MANAGER 
Joan Marchick 


PRODUCT DEVELOPMENT 
Richard Kaplan 
Dan Schaffer 


PRODUCTION 
Adele Damiano 
Eileen Medansky 
Anna Mistrulli 
Sheryl Streim 


BITS AND PIECES 


Howard Y. Gosman 


Color 


We are now accepting color 
advertisements in our magazine. 
Also, as you have no doubt noticed, 
we have expanded our advertising 
considerably, and we intend to 
continue expanding in the future. 
We would like our readers to 
receive the very latest information 
about all products available for the 
TRS-80 computers (all models), 
and often the latest information is 
contained in advertisements. As we. 
expand the advertising, we can also 
expand the editorial content of the 
magazine to bring you more valu- 
able programs and articles. 

Just as we are now supporting 
the Color Computer in addition to 
the Models I, II, and Ill, we would 
also like to support the TRS-80 
Pocket Computer. Program authors 
are encouraged to submit programs 
for the pocket computer for 
publication. 


Color Computer Products 
We are currently reviewing a 


new line of products for the TRS-80 
Color Computer made by Spectral 


Associates of Tacoma, Washington. 
They offer an impressive array of 
products: action game programs, 
utilities, books, and hardware. By 
the time you receive this magazine, 
we will have information on prices 
and availability. Owners of the 
Color Computer can call our order 
line to receive details. 


Mod-Il 


Owners of the TRS-80 Model II are 
reminded that H & E Computronics 
also publishes a newsletter specifi- 
cally for Model I users, called Mod- 
Il. While we will publish articles 
and information about the Model II 
in this magazine, the newsletter is 


- specifically for the Model II. 


Reader Survey 


All subscribers will shortly re- 
ceive a postcard asking what 
model computer they have — a 
TRS-80 Model 1, 2, or 3, Color 
Computer, Pocket Computer or 
other. This will enable us to obtain 
more timely information for all 
readers. | 


The H & ECOMPUTRONICS MONTHLY NEWS MAGAZINE is published by 
H & E Computronics, Inc., 50 North Pascack Road, Spring Valley, New York 
10977. The H & E COMPUTRONICS MONTHLY NEWS MAGAZINE is not 
sponsored, nor in any way officially sanctioned by Radio Shack, a division of 
Tandy Corporation. 

The purpose of the H & ECOMPUTRONICS MONTHLY NEWS MAGAZINE 
isto provide and exchange information related to the care, use, and applica- 
tion of the TRS-80™ computer systems. H & ECOMPUTRONICS, Inc. does 
not take any financial responsibility for errors in published materials. Users 
are advised to check and edit vital programs carefully. 

The H & E COMPUTRONICS MONTHLY NEWS MAGAZINE encourages 
comments, questions, and suggestions. H & E COMPUTRONICS will pay 
contributors for articles and programs published in the magazine. 

The H & ECOMPU?IRONICS MONTHLY NEWS MAGAZINE is typeset by 
Photonics, Ltd., 188 Highwood Ave., Tenafly, NJ 07670, and is printed by 
Kay Offset Printing Service, Inc., 154 Grand Street, New York, NY 10013. 
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Entire contents copyright ° 1981 
by H & E Computronics, Inc. All 
rights reserved. Printed in the 
United States of America. 

All correspondence should be 
addressed to The Editor, H & E 
Computronics, Inc., 50 North Pas- 
cack Road, Spring Valley, NY 10977. 
Unaccepted manuscripts will be re- 
turned if accompanied by sufficient 
first class postage. H & E Computron- 
ics will not be responsible for the 
return of unsolicited manuscripts, 
cassettes, floppy diskettes, program 
listings, etc. not submitted with a 
self-addressed, stamped envelope. 
Opinions expressed by the authors 
are not necessarily those of H & E 
Computronics, Inc. 

Material appearing in the H & E 
COMPUTRONICS MAGAZINE may 
be reprinted without permission by 
school and college publications, 
personal computing club newslet- 
ters, and nonprofit publications. 
Only original material may be re- 
printed; that is, you may not reprint 
areprint. Each reprint must carry the 
following notice on the first page in 
7-point or larger type: 


Copyright © 1981 by H & E Compu- 
tronics, Inc., 50 North Pascack Road, 
Spring Valley, NY 10977. 


Please send us two copies of any 
publication that carries reprinted 
material. 


ADVERTISING RATES 
Contact Advertising Director for 


CRYSTAL BALL DEPARTMENT 


(NEW PRODUCTS OF INTEREST TO TRS-80™ OWNERS) 


WARNING: The information found in our Crystal Ball Department does not 
represent verifiable fact. What follows are rumors from what we considerto 
be reliable sources (unless otherwise stated), or recent news of interest to 


TRS-80 owners. 


1. Radio Shack and two other 
companies will shortly release 
“boxes” that will enable owners of 
the TRS-80 Color Computer to use 
up to four standard TRS-80 disk 
drives. The projected price for 
these items will be $199. People 
who also own a TRS-80 Model | 
will be able to unplug their drives 
from the Model | and use them on 
the Color Computer. In addition, 
Radio Shack will support an up- 
grade to a 32K version of the 
Color Computer. 

A rumor is currently circulating 
that Radio Shack has now sold 
100,000 Color Computers. While 
it is impossible to verify that 
number, it must still be very large. 
Nevertheless, owners of the Color 
Computer have been frustrated 
because there has not been any 
software for the machine except 
for the few packages sold by 
Radio Shack. We think that the 
reason why so little Color Com- 
puter software has been devel- 
oped is partly because of the lack 
of disk drives. The profit from 
small cassette programs is not 
sufficient to interest serious soft- 
ware writers. This is why the 
availability of these new packages 
is so important. 


2. Radio Shack will announce 
the TRS-80 Model 4 by the end of 
the year. It will support up to 


128K RAM and have a color video 
display option. The best guess is 
that Radio Shack will employ a Z- 
8000 microprocessor, but we are 
not certain of the technical fea- 
tures of this machine's design. 


3. By the end of the year, Radio 
Shack will also announce a new 
series of hard disks for the TRS-80 
Model II only, employing the 
Shugart mode! 1006 hard disk 
drive. This model stores up to 8 
megabytes per drive, and up to 
four drives can be added to the 
system. The cost of the first drive 
and controller will be approxi- 
mately $4,500. Each additional 
drive will be about $3,900. 

There is no indication that 
Radio Shack will support a hard 
disk for the Model III. Model III 
owners interested in pursuing the 
hard disk option should check 
into other companies, such as 
Corvus, which already has a proto- 
type working. 


4, Last month we reported the 
hot news item about the new 
Xerox 820 Z-80-based microcom- 
puter selling for $2,995. Now we 
have heard that Xerox also has an 
under $1,000 microcomputer in 
the works under the code name of 
“Sunrise”. The 16K expandable 
unit will feature color graphics, 
RS-232 interface and a built-in RF 
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modulator (no CRT display). 


5. Right behind Xerox, however, 
will be IBM with its “Chess” (8- 
color) personal computer that won 
over a similar unit developed by 
Matsushita Electric Company 
(Panasonic/Japan). It will contain 
an Intel 8088 CPU, double-sided 
double-density dual 5-1/4 inch 
disk drives and 64K RAM expand- 
able to 256K. The price will be “in 
the $3,000 to $4,000 range”. 
Marketing plans include 
ComputerLand, Sears Roebuck, 


and possibly J. C. Penney. oO 


DOES YOUR WORD FROCESSOR 
QUTFUT LOOK LIKE THIS? 
Or even like this? 


It could look like this! 
Or POSSIBLY LIKE THIS. 


Oy even like this / 


We can typeset your text directly 
from your word processor via 
modem if you have an RS-232 port. 
Also from TRS-80 Mod. II disk if 
CP/M compatible 


Call or write: 


Photonics, Ltd. 
188 Highwood Ave. 
Tenafly, NJ 07670 


(201) 569-5245 


IEEE-488 TO TRS-80* INTERFACE 
Everything needed to add powerful 
BASIC GPIB-488 controller capability 
to TRS-80 Modei 1 or 3, Level 2 or 
DOS with a minimum of 16K. 

488-808 


For Model 1 / | | 

Operation \ 
Pelee) ae tsis 

web 488-80C 


— For Model 3 
Operation 
Model 488-80B or 488-80C Price: $325. 
+ shipping, insurance & tax 
WHEN ORDERING SPECIFY DISK OR TAPE 


SCIENTIFIC ENGINEERING 
LABORATORIES 
11 Neil Drive « Olid Bethpage, NY 11804 § 
Telephone: (516) 694-3205 

*Trademark of Tandy Corp. 

There is no affiliation between Scientific 
Engineering Laboratories and Tandy Corp. or 
Radio Shack. 


(your dictionary, that is) 


Now you can proofread and correct 
ten pages of text in less than one minute, 
with MICROPROOF dictionary software 


e EASY TO USE: Prepare your text on any Z-80 based microcomputer, 
using any of a number of popular word processing programs. When you 
are finished, enter the appropriate command, and MICROPROOF proof- 
reads your document, displaying misspellings and typos on the screen. 
Then MICROPROOF displays each error separately, requesting you to 
enter the correct spelling for each. Finally, MICROPROOF corrects your 
document. All in less than a minute. 


COMPREHENSIVE: MICROPROOF comes with a 50,000 word 
vocabulary. That’s equivalent to a Webster’s Pocket Dictionary. And 
MICROPROOF’s dictionary is INFINITELY EXPANDABLE. You can add 
your own technical words and jargon. 


RECOGNIZES prefixes, suffixes, hyphenation and comment lines. 


REQUIRES ONLY 32K of memory and one single or double density 
5% inch or 8 inch disk drive. 


AFFORDABLE: Available in three forms: fully independent program 

to identify errors, independent program to identify and correct errors, 

or with a conversion program that will permit MICROPROOF to operate 
from within your own word nrocessing software. 


PRICES 
TRS-80® Model I version $125.00 Correcting Feature $60.00 
TRS-80® Model II version $200.00 Word Processing Conversion 
CP/M® version $200.00 Scripsit’ or Electric Pencil’ $35.00 
APPLE® version available soon Separate User’s Manual $5.00 


Master Charge and Visa accepted. No COD please. California residents add 6% sales tax. 


Send for a brochure—specify type of microcomputer and word processing software used. 
Dealer inquiries welcome. 


CORNUCOPIA SOFTWARE 
Post Office Box 5028 
Walnut Creek, California 94596 
(415) 524-8098 
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COLOR COMPUTER CORNER 


H & E Computronics has obtained information on several 
new products for the TRS-80 Color Computer from Spectral 
Associates of Tacoma, Washington. We are currently evaluat- 
ing this material to decide whether we should carry the items. 
Spectral has one of the most attractive presentations we have 
seen in a long time. They offer color games, utility software, 
several types of hardware, and books. 

There are eight game programs available at this time: Color 
Space Invaders, Meteoroids, Space War, Game of Life, Graphic 
Animator, Artillery, Color Space Traders, and Madness & 
Minotaur. Color Space Invaders, Meteoroids, and Space War 
are all arcade-type action games, and the three can be 
purchased in a set called “Space Trilogy”. 


are for use with Spectral Associates boards are available. A 
serial 1/O channel allows direct connection to a modem or 
serial printer. Two memory expansion kits are also available, 
one for 16K and the other for 32K. 

Only two books were contained in the initial package: 
6809 Assembly Language Programming and An Introduction 
to Microcomputers. 

By the time that you receive this magazine, we will have 
completed our evaluations and will probably have some or 
all of these items in stock. If you are interested in any of these 
items, please call the order line to ask whether we have 
them and the prices. i 


AMBER EAZE™ 


EYE FATIGUE— Much discussion has taken place regarding screen Color and 
contrast, Extensive research has produced a breakthrough in the prevention 
of Opertor Eye Fatigue. Amber has been found to be much more effective in 
preventing eye fatigue than any other color. Put an Amber Eaze Filter on your 
TRS-80™ or any other computer monitor. Contact one of the dealers below, or 


direct to: 


171 Hawkins Road 
Centereach, New York 


Model Il & Ill 


(516) 981-8568 (Voice) Other Computers 
(516) 588-5836 (Modem) 


70331,405 (MicroNET) 


Programs Unlimited 
20 Jericho Tpke. 
Jericho, NY 11753 
800-645-6038 


CCC. 

5582 Coral Way 
Haslerr Mi 48840 
517-339-1028 


562 Nutt Road 
800-345-6279 


All Systems Go 
105 W. Plant Sr. 


305-877-2830 


Four programs are offered as utility software: two versions of 
amonitor program called“ BUGOUT”, one for cassette and the 
other requiring a PROM, an Editor/Assembler for the 6809 
microprocessor, and “MAGIC BOX”, a program designed to 
load TRS-80 Model | and III programs into the Color Computer. 
While there are certain inherent differences between the 
Models f and III and the Color Computer that will make it 
impractical to run many Model | and Ifl programs on the Color 
Computer, there is such a large software library for the Models 
| and III that there will be many useful programs left. We plan 
to test programs published in our magazine to see whether 
they will run on the Color Computer, possibly with minor 
revisions. 

Several types of hardware are offered. Five PROMs that 
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Stevens Radio Shack 


Phoenixville Pa 19460 


Winter Garden, Fl 32784 


Dealer Inquiries Invited 


Computer Services of Danbury 
P.O. Box 993 

Danbury, Cr. 06810 
203-744-5516 


Bob's T.V. 

93-15 86th Drive 
Woodhaven, NY 11421 
212-441-2807 


ELECTRIC PENCIL” PATCH 
for the TRS-80 Model Ill 


Patches the disk version of the Electric Pencil™ program 
so that it runs on the TRS-80 Model III.(You must already 
have the Model | version of the program.) Automatically 
upper and lower case, no hardware modifications required. 


H & E COMPUTRONICS, INC. 
(914) 425-1535 
inside New York state 
(800) 431-2818 
outside New York State 


$19.95 


THE COPYRIGHT KIT 


“How to Copyright your Computer Software” 


TIC-TOC BO" 
Micro:-Clock 


Put a wrist watch on your Computer. Gives Time, Date, 
and Day of week, without the need of operator input. 
Runs on Batteries, so it never needs to be reset. Gives 
you the ability to enter data with the knowledge that 
the Date and time are correct. Includes complete 
documentation, and sample routines. 


Mod I Version. ............0c cece cece e cece $99.00 
Mid Ill Version ............0 ccc cece cece ees $109.00 


NEW DOS PLUS SUPPORTED! 


DOS PLUS 


This is the BEST Operating System currently available for 
the TRS-80™. It offers you all the features you could ever 
use, speed, reliability and much more. Available forthe 
Model | and Ill. Single and double density systems 
available. Only 99.95 either system. 


Al 


A self-instruction booklet on copyrighting the computer 
programs you write. IF YOU EVER WROTE A COMPUTER 
PROGRAM YOU NEED THIS BOOK! INCLUDES: Step by 
Step instructions, sample forms, as well as discussions of 
copyrights, patents and trade secrets, your rights se- 
cured by copyright, legal remedies upon infringements, 
material not copyrightable and MUCH MORE! Written by 
Attorneys. Published by National Attorneys’ Publica- 
tions, Inc. and distributed exclusively through BT. Enter- 


ee 


RUN YOUR OWN 
COMPUTER 
BULLETIN BOARD 


Become a CONNECTION-80 SYSOP with 
an UDS— 103) Auto— Answer Modem, 
Message-80 BBS Software (by Richard 
Taylor) and CONNECTION-80 Enhance- 


ALA 


Il ments (by Tom Vande-Stouwe) all for only 
UN |-TERM N EW! iu $389.00 ($90 off regular price). 

Other Bulletin Board and Electronic Mail 
UNIVERSAL TERMINAL N EWI! Packages available. Call for Info. 


PROGRAM by Pete Roberts 


The first and only fully intelligent terminal 
program for BOTH Mod | and Mod III users! 
Includes all features found in Terminal 
programs costing MUCH more, pius many 
not found anywhere else. Includes 


We are happy fo an- 
“ounce the addition 
of The Universal Data 
Systems, and Lynx 
Modems to our line of 
fine modems! 


COPY Ill 
by Dick Balcom 


Load in the 500 Baud system tapes in 1/3 
the time with copy Ill. This utility will read 


extensive Documentation and hand- | Watch this inyour 500 baud system tapes, and then 
some binder. all write them out at 1500 baud. This gives 
space or ¢ you backup protection as well as speed- 


ee) 


ing up your tapes. A must for all Model Il! 
Cassette users! 


ay 


for specials! 


MODEL III DISK DIRECTORY 
PROGRAM 


by Bill Maxey 


Catalogue your Diskettes with this easy to use Cata- 
logue program for Model III Disk systems. Can run on as 
little as a. 32K 4 Disk system. Helps you keep track of ALL | NOt work with them! 

of your programs. TORRE viccdiekirnte tsceakuansaeetdnsdian $45.00 
LD he es aise ate Coe a Sau Cok ee Ee'e $19.95 | 32K set... ccc cece eee eee eee eda 


171 Hawkins Road | 
Centereach, New York 11720 
(516) 981-8568 (Voice) Dealer Inquiries Welcome 


(516) 588-5836 (Data) Add $2.00$&H 
MNET-70331, 105 NYS res. add appr. tax 


‘(COMPUTROMNICS: 


MODEL III MEMORY KIT 


Upgrade your Model III to 32 or 48 K with the RIGHT 
Memory Chips. These are Prime 150ns (Fost!!) chips. 
Beware of slower chips, as future Mod Ill upgrades may 


An 
innovative 
word 
processing 
system 
for 
TRS-80° 
MOD | 
& 
MOD Ill 


an ® 


©4980 
by 

David 

Weish 


Lazy 
Writer® 


It is time to put your 
word processing program 
away and use a 


Word Processing System 


“Lazy Whiter is the product of ABC Sales 


LAZY WRITER Takes on Scripsit® by Radio Shack® and Electric Pencil®° 
Has ail the things that other word processing programs should have. Easy to use, written all in machine code. / It permits the inserting and deleting 
by characters. words, sentences, and paragraphs / Page scrolling up and down / Search ahead of the cursor or behind the cursor forany character / 
The cursor can be moved up, down, left and right / You can seek top of file and bottom of file / Block move of text, block delete of text/ Search and 
rapiace or search delete / Unlimited insert (to the limit of your machines memory) / Permits use with lower case / 


Has things that other programs should have, but don't. Upper and lower case output to your printer (if your printer accepts lower case) without 
having your computer modified. ON UPPER CASE ONLY MACHINES: This program marks the capital letters so you can see which letters are CAPITALS and 
which are not / Will change all upper characters text to lower case or all lower case to upper. A SINGLE COMMAND / Will capitalize the first letter of all 
sentences and all proper noun |'s, WITH A SNGLE COMMAND / LOADS ANY ELECTRIC PENCIL FILE / ASCII SAVED FILES EDTASM FILES or BASIC PROGRAMS 
SAVED ASCII / Permits installing special control characters in your text for your printers special features, like doubie wide or condensed print / Definablie 
screen length and definable pant length to 255 characters wide / Screen editing that is not final till your command. This means that you can edit your 
file on the screen and if you don tlike how it reads you can cancel and leave it the way it was/ You can append files(which means that youcan put one 
file to the end of another file) / No lost characters at the end of the line. even for the fastest typist / A directory of all your files is available to the user 
without leaving the program / Saving programs to disk easy enough for the non-computer user / To save memory. not all the program modules are in 
memory at one time but are called from the disk as needed / You can set tab positions like on a typewriter / 10 CUSTOM COMMAND KEYS for the 
expenenced user there is a command file that permits many special functions that are all user defined(not enough space for better explanation inad, 
send for complete overview) / Program has HELP file that is a short review of the commands that are available / 

Standard Printer Module. This printer module is provided for the user as a standard feature. Optional special printer routines for custom printer will be 
available in the near future. In this onginal release, it has the following printer divers and will support the following printing devices: RS232. TRS232 and 
PARALLEL printer ports. You have the following format commands: Justifies Text. Centers Text. Centers Titte, Line Spacing. Line Length from 3-255 
characters and Set Margins / Also send any ASCII 
code to any printer from the text / Save formatted 
text to the disk for spooling later / Information for 
customer to load his own special printer driver / 
Printing can be stopped and started by the user at 
any time and then restarted where you left off / You 
can pant entire file or just print to bottom of the page / 


MOD | - $425 
MOD Ill - $475 


“Requires 2 drives for 
conversion only. 


NEW FEATURES in Lazy Writer 
“The People Request, and David Welsh Delivers” 


The system permits embedding ASCli commands into the text of 


Communication Package. S232 COMMUNICA- 
TION TERMINAL PROGRAM permits you fo communi 
cate with other computers. Transfer files from one 
machine to another Permits dumping memory a- 
ctoss the phone lines. Receive files from other TRS- 
80's and “Shake Hands” with targer computers. This is 
the complete system called LAZY WRITER There is no 
package wnitten for the TRS-80° that is as compre- 
hensive. This package is available for the 
TRS-80° MOD |, 32K or larger with at least 


a single disk drive. List price is from 


$125.00 


SOFT SECTOR MARKETING, 
ens ‘NCORPOAATED 


ai Phone Orders 
, 800-521-6504 


Questions & Michigan Orders 
(313) 425-4020 
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the program. NOW you can do SUPERSCRIPT and SUBSCRIPT (if your 
printer can handle it) Underlining and boidface, printing of a single 
word in G paragraph. 1s Now possible, at no extro cost. 
A key that remembers the cursor position. 
User definable special character. For use with printers that have 
pantabdie characters that the TRS-80 keyboard does not normally 
support 

control from within text. This means that you can change 
the margins of your pnnted text without stopping the printer routine 
and changing tt. 
Page offset with odd/even headers & footers. This means that 
you can print one page offset to the left of center and the next page 
Offset to the nght This is very nice when you are witing a book. 
Printing chaining feature. This pernits having more than one file 
on disk and create one printed letter. contract. or book without 
having to reset the pnnter commands. 
Mandatory space command. This is necessary when you are 
writing letters or papers that have certain words that are not to be 
broken-up. eg.:John P Andhouser. This name can be madi to be 
unbdreakabie to justify routines in the program. 
Disk Now you can toad your disk directory into memory 
and create a file of this information. 


Reverse indents of known as Hanging indents 


LETTERS TO THE EDITOR 


The Low Down on Radio Shack Computers 


! would like to comment on a paragraph appearing in 
the June, 1981 issue of H & EComputronics by Howard Y. 
Gosman, publisher. The article was titled “The Low 
Down on Radio Shack Computers”. This article was inter- 
esting; however, it was very biased. | understand that this 
was a quotation taken from the W5Y! Report (whatever 
that is), but it should have, without question, been clarified. 

Many “Radio Shack Authorized Dealers” do offer Radio 
Shack’s computers and software at prices as much as 25% 
below the store prices. There are several things you failed 
to comment on: 

(1) Radio Shack Authorized Dealers are usually not local 
and constitute a mail-order type purchase. 

(2) The biggest problem is that when you buy from an 
authorized dealer instead of through a Radio Shack store or 
computer center there is no warranty. When you purchase 
from a Radio Shack store, you receive a one year warranty. 
If you have problems with your Model II! (for example), 
you return it to your local Radio Shack store or Computer 
Center. It is then shipped to a regional repair center, and if 
they cannot help, to Fort Worth. When you purchase your 
Model III from an authorized dealer, the only warranty you 
get is that if you have a problem, pack it up, insure it, and 
ship it back to them. Then your problems just begin. Con- 
tact is a problem because of the distance. You will not get 
personalized service, and you don’t know exactly where 
your $1,000 or more investment is. 

The added cost of purchasing at Radio Shack stores and 
Computer Centers is basically that you are buying a guaran- 
tee or warranty. In no way would | advise purchasing 
through a dealer. Buy local. After the warranty of one year 
expires, then | might possibly consider purchasing 
modems, disk drives or other items of other brands than 
Radio Shack. During your warranty period with Radio 
Shack (read your warranty), if you add other brands such 
as Percom disk drives or RS232 imitations, your warranty 
is completely void. This is because the installation of these 
items requires breaking of the seal of the computer to get 
inside. After your year warranty, then do what you want. 
You won't be losing anything that way, hopefully. 


Michael J. Sutton 
P.O. Box 446 
Tarpon Springs, FL 33589 


Error in “Biorhythms” 


What a great group of people the readers of Compu- 
tronics are. | have been getting calls and letters with sug- 
gestions, questions, and just plain nice comments from all 
over the country about my Biorhythms program that was 
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TRS-80" Compatible 
‘‘carbonless”’ 
Continuous Statements 


small 
quantities, 
low prices, 
fast delivery 


Order as few as 500 
statements imprinted with 
your firm name and address. 


Only $97 


NEBS 9062 Statements are 
software compatible with 
the TRS-80, Model 1, Level 
lt, Accounts Receivable 
package #26-1555. 


SPEEDO ey dete 

Product 772 OU-O-VUE® Envelope 
TRS-80 ta 6 Trade Mark of the Radio Snack (3#°X 4) eliminates 
Co., Subsisiary of the Tandy Corp. envelope addressing. 
Product 9062 — Size 6”x 8%" detached. Prices include your firm 
name, address and phone In top section, plus your name only in 
lower section. Printed in black ink. Available in single (white) or 
duplicate (white, canary) continuous sets. 


SINGLE DUPLICATE Product 772 
QUANTITY oe Product DU-O-VUE® 
$062-2 Envelopes 
$355.00 r 
228.00 


ORDER TODAY! MONEY-BACK GUARANTEE. 

FAST SERVICE BY MAIL or PHONE TOLL FREE 1 + 800-225-9550 
(Mass. residents 1+ 800-922-8560). it is our policy to ship within 
6 working days following our receipt of your order. 


Please ship: Date. CODE 460 
| 9062-1 STATEMENTS (Single) | 
9062-2 STATEMENTS (Duplicate) 
| 772 DU-O-VUE® Envelopes { 


Information on contmacns checks and other 


computer form { 
HEADING TO BE PRINTED ON a (Please type or print) 
a ee A a | 


CTY and STATE Ze 
PHONE I 
AUTHORIZEO | 


eee ree ee aes BrP attorantiy Warm above please Indice 


Le — <— coNDSter Forms wal 
78 Hollis Street, Groton. Mass. 01450 


A Oxnecn Of Mew Engiarsd Busness Sernce, 1c 


Color Computer 4K $340 
wiExt. Basic 16K $489 


Model II 64K 


Model Ill 16K 
$859 


SET, 


These are just a few of our many 
fine offers — computers, periph- 
erals, modems, printers, disc 
drives and an unusual selection 
of package values. Call TOLL 
FREE today and check us out for 
price and warranty. 


Factory warrantees on Apple and 
Atari equipment. Other equipment 
carries manufacturer's warranty or 
Computer Plus 180 day extended 
warranty. Combined warrantees 
carry Computer Plus 180 day war- 
tanty or original manufacturer's 
warranty 


DEALER INQUIRIES ARE INVITED 
Prices subject to change without notice 
TRS-80 1s a registered trademark of Tandy Corp 


call TOLL FREE 
1-800-343-8124 


Write for your plus 
free catalog 

Dept.G 

245A Great Road 


Littleton, MA 01460 
(617) 486-3193 


‘(COMPUTROMNICS: 


published in the May issue. 

A few of them have pointed out to me that | made one 
major goof in how the sine curve prints out. That is, the 
curves should start printing on the plus (up) side from the 
day of birth, and not on the minus (down) side. The 
easiest way to correct this error is to change line 1020: 

from: FOR X=1 TO 21 

to: FOR X=21 TO 1 STEP -1 


Frank Growney 
89 Grove Street 
Waldwick, NJ 07463 


Copying VISICALC and Printing Directories 


| got my June issue of Computronics yesterday. | have 
enjoyed the magazine and I’m glad | subscribed. Only 
wish | had done so earlier. 

lama semi-retired litho prep specialist and my TRS-80 
Model has Level II, 48K and two disk drives. My printer is 
a Model 33 teletype running under TRS232. | use it for all 
my business applications including bank account manage- 
ment, invoicing and record maintenance. | haven't troub- 
led to write a general ledger program, and | don’t need a 
payroll program since | work alone here at home. I’m 
proud of my programs — | wrote them all myself and they 
work fine for me. 

In your Crystal Ball department, item 4, you state that 
Visicalc cannot be copied. | bought mine from Radio 
Shack, paid $99.00 for it and I can indeed make backup 
copies. It is the same as making a copy of any TRSDOS 
disk. Perhaps the Personal Software people produce a dif- 
ferent version under their own name. 

Mr. Gary R. Johnson’s question about printing out the 
directory of a disk is more easily answered. If he has any 
version of NEWDOS he can go to BASIC, enter CMD“ DIR” 
and then use the JKL screen print utility. | do this from 
time to time and paste the print-out on my disk jacket. 
Then | number the jacket and the disk. It saves a lot of 
confusion when one is operating with a number of disks. 


Jay Cox 
15 Lake Drive East 
Wayne, NJ 07470 


Users’ Group of West Los Angeles 


The TRS-80 Users’ Group of West Los Angeles is now 
forming. Exchange of public domain software and discus- 
sions of hardware and software topics are planned. Inter- 
ested parties should call (213) 836-4103 or write P. O. 
Box 85, Culver City, CA 90230. 


Mike Miller 
10210 Woodbine St., #1 
Los Angeles, CA 90034 


Error in Keyboard Input Buffering Program 


Unfortunately, an error has crept into the Keyboard 
Input Buffering program that was published in the Feb- 
ruary 1981 issue of Computronics. Line 250 should read 
JRZ,NOINIT and notJR NZ,NOINIT. What was intended 
as a security measure if the routine was initialized more 
than once has turned into code which insures that it will 
never be initialized. Hopefully your future typing will be 
correctly buffered ! 


Arne Rohde 
Pilevej 31 
7600 Struer, Denmark 


EPSON MX-80 program on Model I! 


Joseph Rosenman’s Epson MX-80 initialization pro- 
gram is appreciated. However, he forgot us poor Model I! 
users. I’ve tried to make it work, but | do not know BASIC 
well enough to convert it to MOD II. I’ve gota MOD II 
and MX-80. What a shame | can’t use them to the full 
advantage ! 


Bill Apresti 

N. S. 1. Systems Incorporated 
1235 Lowery Court 

Norfolk, VA 23502 


Mr. Rosenman replies: 

Sorry that you’ve had trouble adapting the program to 
your Model I]. Although | don’t own a Model II, | am told 
that there are very few differences between the two 
BASICs (they were both written by Microsoft). The two 
most important differences are that Model II BASIC does 
not support the PEEK and POKE functions, and the syntax 
of the IF statement is slightly different. There are no PEEKs 
or POKEs in the program, so the problem must be with the 
IF statements. The major difference is that, in Model II 
BASIC, you must use the“ IF <question> THEN <action>” 
syntax (in Model I you can leave out the THEN). There are 
IF statements in line numbers: 100, 270, 280, 290, 490, and 
500. | will reproduce line 100“ before” and “after” to show 
how they must be modified. 


IF D$=’T’ GOTO 370 ELSE IF D$<>’S' GOTO 90 ELSE CLS 
becomes 

IF D$=‘T’ THEN 370 ELSE IF D$<>‘S‘ THEN 90 ELSE CLS 
Note that the 40 character-per-line mode cannot be 


permanently set (as mentioned in the June issue of 
Computronics). 


The DATATRANS = 


A completely refurbished 


IBM Selectric Terminal with 


built-in ASCII Interface. 


*FOR YOUR TRS-80 WITH OR WITHOUT 
EXPANSION INTERFACE. AVAILABLE WITH 
CENTRONICS TYPE PARALLEL PORT. 


Features: 


Also works with Exa- 
tron’s Stringy floppy. 


@ 300 Baud Serial 

e 14.9 characters per second 
printout 

@ Reliable heavy duty Selectric 
mechanism 

e@ RS-232C Interface 

e Documentation included 

@60 day warranty—parts and 
labor 

@ High quality Selectric print- 
ing Off-line use as lypewriter 

@ Optiona! tractor feed 
available 

@ 15 inch carriage width 
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for fast loading of pro- 
grams. (Has RS232 
built in stringy) 


HOW TO ORDER Desk and table top models also available. 
DATA-TRANS 1000 

1. We accept Visa, Master For orders and information 
Charge. Make cashiers checks or 

personal check payable to: DATA-TRANS 
DATA-TRANS 45277 Fremont Blvd., #7 27 
2. All orders are shipped Fremont CA 94538 

FO.B. San Jose, CA 

3. Deliveries are immediate Phone: (408) 263-9246 
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ST80-il1 The Ultimate Communications Package: 

Price $150.00 
This is our top of the line communication package. Full disk 
support including DOS commands have been implemented. 
S$T80-III ™ has been on the market for over two years and has 
become the standard in TRS-80" communication. This 
package has been used in a wide variety of applications 
including use with: 


Addressomultigraph, Compugraphics, Spectrometers, and a | 


wide range of Time-sharing computers. 


IBM CDC ITEL Honeywell 
DEC “ WANG Prime Data General 
Amdhal RCA XEROX GE 

Apple Heath Northstar Altos 
Superbrain PET Cromemco HP 2000 


The package includes the ST80-II!" smart terminal program | 
and nine other communication utilities: Fully documented 
with easy to follow instructions, ST80-III" is by far the best 


terminal product on the market today. Features: 


1) User configurable communication tables 
2) Auto Logon 
3) Last line repeat 
4) Formatted video (Page, Scroll & Formatted) 
5) Direct cursor addressing 
6) File transfer from disk or to disk 
7) Printer support 
8) Echo, Feedback & Veriprompt™ verifies data 
transmitted 
9) 110 to 9600 BAUD support 
10) Remote contro! of Memory open & close, 
Printer on & off, Video on & off & auto logon 


11) Help display 
12) User definable function keys 


Host Communications: Price $ 50.00 
This program is by far the best HOST program you can buy. 
It supports the PRINT @_ statement for the remote 
TRS-80" running any of the ST80™ smart terminal 
programs. All of the ST80-iIl" advanced functions are 
supported by host allowing easy access via BASIC, Fortran 
and machine language programs. Host features include: 


1) User defined RS-232 port addressing 
2) Definable BAUD rates from 110 to 9600 
3) Definable break (yes/no) 
4) Allow line feeds 
5) Commands: 

a) Turn on RTS (request to send), 

b) Turn off RTS, 

c)} Receive data only from terminal, 

d) Receive data only from host, 

e) Send data only to host, 

f) Send data only to terminal, 

g) Operate in dumb terminal mode, 

h) Operate in ST80” mode, 

i) Check CTS status. (clear to send) 


This is a self relocating subroutine that can load anywhere in 
high memory. 
Communications hardware available 
SMALL BUSINESS 
SYSTEMS GROUP, INC. 
6 Carlisle Road 


Westford, MA 01886 
(617) 692-3800 
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Agricultural User’s Group 


As a new subscriber to your publication, | would like to 
compliment you on the content of your magazine. | re- 
quested that my subscription begin with the first issue 
and so have been able to see the growth of H & E overa 
two year period in just a few days. An interesting 
experience. 

| would like to bring to your attention an often neg- 
leced section of the TRS-80 readership, the agricultural 
users. We have formed a users’ group, which operates 
through the mail, for all agricultural microcomputer own- 
ers. We have a newsletter in which practical agricultural 
uses for microcomputers are presented along with pro- 
gram reviews and member comments. As aservice to your 
many readers in the agricultural field, would you publish 
the above information in your magazine? 


Ken Harris 

Agricultural Users Group 
RT 2 Box 138 

Golden City, MO 64748 


Problems with “Checkers 80” 


!am enclosing a copy of a letter mailed today to Ed Juge 
at the Tandy-Radio Shack headquarters. Needless to say, 
| reached the end of my rope with the “Checkers 80” 
program. 

Keep up the excellent work on Computronics maga- 
zine. | am completely satisfied with your publication. 

The letter follows: 


Dear Mr. Juge: 

Enclosed is a copy of “Checkers 80”, which | am return- 
ing to Radio Shack for the fourth time. | purchased this 
original tape in December, 1980 from a Radio Shack in 
Buffalo, New York, When I returned to Saudi Arabia, | tried 
to load the program, with no success. | returned the tape 
to store #8344 and explained the problem. 

Approximately six weeks later, | received a second tape. 
It had the same problem with loading. | again returned the 
tape — this time with a letter explaining that | was working 
in Saudi Arabia and just couldn't take the tape to a store 
around the corner. | further asked if the tape could be 
checked before sending it to me. 

Yesterday, | finally received copy #3 of this program. 
When I tried to load the program, | got nothing — no 
blinking asterisks. | “listened” to the tape with a radio near 
the computer, and heard a program loading, or at least 
running. | took the cassette out of my recorder, and when 
{ saw that the tape was loaded upside down in the cassette, 
I gave up. 

| have received bad cassettes from various companies, 
and when the bad cassette is returned, | often receive a 


new tape which is clearly marked with some sort of quality 
assurance check or verification. My opinion is that Radio 
Shack does not have a quality assurance program in effect. 
| am disgusted with the performance of Radio Shack 
dealers. There is no doubt in my mind that | will no longer 
order programs from Radio Shack. 
fam returning this tape to you, Mr. Juge. | really don’t 
care if | ever see this program again. My single consolation 
with this shabby performance is that | almost purchased 
the Casino Pack. | am certain that there are other compan- 
ies which manufacture a comparable pack, with quality in 
mind. 
Richard P. Thrun 
Northrop Box 862 
APO New York, NY 09616 


eR ok 


H & E Computronics welcomes letters on any subject. If 


you wish a personal reply, please enclose a self-addressed, 
stamped envelope. 


xe OK KOK 

H & E Computronics also welcomes readers to submit pro- 
grams, articles, or reviews for publication. Please address 
correspondence to: 

The Editor 

H & E Computronics 

50 North Pascack Road 

Spring Valley, NY 10977 


Please submit programs on media (cassettes or diskettes). 
Also please indicate the system it was prepared on: for 
example, Model | Level Il 16K, or Model II] 48K disk. ™ 


Advertisement 


MEDCOMP INCORPORATED 
ANNOUNCES 


UCSD Pascal Operating System Version 4.0 
for the TRS-80 Model I! 64K 


Requires 64K with one disk drive 

Supports four drives 

Keyboard type-ahead on both console and remote 
Supports both Serial and Parallel Printers 

Clock support 

“dummy” USER device for output 

Universal Formatting 

Disk drivers for hard disk or non 8” floppies 


For more information write: 
MEDCOMP INCORPORATED 
392 Pleasant Street 
Brockton, MA 02401 
(617) 965-0529 


he Electronic 
Astrologers- 


cast an accurate birth chart for 
any date, time and place from 


1880 to 2000, then tell you 
what it means! They give per- 
3 sonalized astrological consul- 

aioe a PE stations of 1500 words or more, 
based not just on your Sun sign, but on the unique rela- 
tion of ALL the planets at your birth moment. 


ASTRO-SCOPE 


delineates your character, its strengths and weaknesses, 
and touches on many areas of life such as relationships, 
finances, career and life goals. Text is by Steve Blake, 
psychology-oriented astrologer and popular lecturer, and 
Robert Hand, pioneer in astrological microcomputing 
and author of four bestselling astrology books...... $30 


Gey -O - Scop 


tells you things your astrologer would blush to reveal! 
John Townley, author of Planets in Love, an editor of 
Sexology Today, and a student of a// forms of sexual be- 
havior, uncovers your tastes and turn-ons.......... $30 


for 
TRS-80*" Model | or tll, with TRSOOS, 32K RAM, 2 drives 
Apple It with Applesoft, 32K RAM, 1 drive 


+tTM of Appie, Inc. “TM of Tandy Corp. 


WE TAKE MASTERCARD AND VISA 


Box 28, Orl . Ma. 02653 
AGS Software ee ee ae a 
— 


Telephone 617/255-0510 
Outside USA please add $2.50 shipping charge 


SAP ARAL AE HE A A A A 
Ba AACEREDEEARS TAEAABREELEDERERE SNR ANA UENES RUS EADEDREERAEALE OEE 


i SPeBZALD i 


HE hi 
se SPELLING PROOF READER PROGRAM zt 
#% aH 
#% FOR TRS-80 MODEL I_AND ITT hi 
Hy WITH ONE DISK DRIVE AND 32K OF MEMORY i 
#% ® CHECKS SPELLING of any ASCIZ text file or Li 
#% individual words or phrases entered from the Lit 
#% Keyuoaeds Br eoeae, he all conjugations; Lit 
#% prefixes, suffixes, words, possesives. ZH 
#% ® MAKES RECOMMENDATIONS. FOR. CORRECT ON of mis- Lit 
#% spelled words LH 
at e DISPLAYS HYPHENATION for requested words. LH 
#% @ BLINKS MIS- Beats words on video screen and Lt 
eZ allows operator scan the full text file. dH 
#% # 25,000 WORD DICTIONARY FILE can be added to iit 
4% or changed and has a 258 word file for just at 
#Z abbreviations. File expansion is unlimited. Le 
#% *® DAISY WHEEL or DOT MATRIX PRINT OUTS with ai 
#% mis-spelled words underlined or DFACE. ai 
Hu ® MINI- ~BICTIONARY print out of 68% or better ai 
Hd choices, using three comparison techniques, Li 
#% along with each mis-spelled/unmatched word Li 
#% as recommended replacements. ad 
#L # QUICKLY PROCESSES text in 1,888 word blocks. LH 
#% 2 minutes for Model III, Model I is slower. ht 
Ht * THE COMPLETE DICTIONARY FILE can be printed LH 
#% as a convenient reference document. a 
#% 

#% Lit 
#% The “SPELAID" program runs on either the Model I or LH 
#% Model LLY TRS-8@ Computer with one 5" miniadisk drive “i 
#% and 32 K of memory. The $166.80 price includes the tH 
#% *SPELAID" Program Disk, Dictionary Disk, Instruction ye 
#% Manual, and mailing costs. Ea 
#% 

4% SPELAID aH 
#% BOX 23555-123 at 
#2 SAN DIEGO, CA.. 92123 bss 


#% # 
HOPERTRTRUESCeTEeree reece tenes LLULULLLLLA LEELA ALLELE 
AURHAAAMHRUTHATHHAUTHHAAHHAMHANAURMHRERMAHAUHHRMAMNHAAMA AMR H AHH 
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PROGRAM PREVIEWS 


A. A. Wicks 
This Month: NEWBASIC 


The TRS-80 Model II! promises to be an extremely 
versatile computer, and no doubt the sales volume will 
be high — although not on such a steep curve as was 
the Model |. This will be partly due to the fact that a 
large part of the market base has already been 
acquired by some 200,000 Model | sales, and a great 
many of these owners will not be “upgrading” to the 
Model III. This lack of desire (money, interest), will be 
deepened further by the software merchants out there 
providing substitutes for many of the incentive 
features of the Model III. This trend is evident already, 
and one of the earliest arrivals is Modular Software 
Associates’ NEWBASIC. Not that NEWBASIC replaces 
all of the Model III’s enhancements, by any means, but 
many of the more desirable niceties show up in 
NEWBASIC. NEWBASIC is not to be confused as being 
another Disk Operating System, although a few of the 
features of NEWDOS (R) are within its capabilities. No, 
NEWBASIC is pretty well just exactly what its name 
implies — a “new’ BASIC. Nevertheless, it does not 
stand alone, but rides along with TRSDOS (R) 2.3, 
NEWDOS 2.1 (R), or NEWDOS/80 (R). 

NEWBASIC is a disk-based system in the version 
purchased for use and review. It is also available for 
Level Ii cassette operation, except that purely disk- 
oriented commands will obviously not respond. In any 
event, with disk operation, one drive is sufficient, but 
because the program is appended to a DOS, the more 
RAM memory available the better (32K minimum), as 
it will require nearly 7K bytes of memory, in itself. 

in order fo create a NEWBASIC disk, a utility called 
“CREATOR” (no divine intervention, however), is 
called from the supplied NEWBASIC disk. At that 
point, a screen display will step you through a query 
list of all of the features of NEWBASIC, and you have 
the option of including or rejecting any command you 
may choose. Upon completion of the list, the screen 
will state the total size of the commands that have 
been selected for inclusion. You then choose a file 
specification name (NEWBASIC/CMD is the default), 
and press ENTER, at which time the NEWBASIC file 
you have created will be saved to diskette. The 
diskette you save it to must already have an operating 
system. This is not made clear in the manual, and may 
puzzle some users. Once this action is completed you 
now have a DOS diskette with NEWBASIC on it, and it 
is only necessary to call it from DOS by typing 
“NEWBASIC” (if that was the name selected), as you 
would call BASIC. Incidentally, the normal BASIC/CMD 
must exist for NEWBASIC to operate. When you have 


made a NEWBASIC diskette, you no longer need to 
use CREATOR, unless in the future you wish to change 
the command choices you have made. 

After a brief display of both RS and Modular 
Software Associates’ copyright notices, the screen 
clears, and the cursor awaits your command. You may 
now operate the many commands of NEWBASIC, 
directly or within programs you are entering from the 
keyboard, or have loaded and are modifying. As an 
example, BLINK turns on a flashing cursor in place of 
the usual. This will remain on and flashing at a little 
faster rate than once per second, until the command is 
typed again. Because | use SCRIPSIT® a great deal, 
which has a blinking cursor, | now turn on BLINK at all 
times when using NEWBASIC, in order to “feel 
comfortable,” so to speak. For the same reason, | turn 
on repeating keys with NEWBASIC’s REPEAT command. 
Any key and space then will repeat, after being held 
down briefly. (Both of these functions are in the Model 
Il.) Additionally, although | do not make use of it, 
REPEAT will cause a “beep” to be heard when a key is 
depressed, if a small amplifier/speaker is attached to the 
cassette-out line of the TRS-80. The REPEAT function is 
especially useful when in EDIT mode, it is far more 
convenient to zip along to a correction point than by 
using “2S:" for example. 

There are 28 additional commands available in 
NEWBASIC. (Keep it in mind too, that all of the normal 
BASIC commands are in there, too!) A few of the more 
interesting or more useful commands will be described. 
The first few to be mentioned are only applicable to 
operators who have disk systems, as these commands 
are Disk NEWBASIC oriented. 

One of the most convenient is DIR. Almost like the 
DOS DIR, but the resultant display is far more 
informative, and this command, as are all the others, is 
called right from NEWBASIC. The top line essentially 
produces what you normally get with FREE in DOS — 
the drive number being read, date of formatting, and the 
number of free sectors remaining on the diskette. Below 
this is presented the file name, including extension, if 
any, followed by the size of each file in sectors. Displays 
for other drives are acquired in the usual manner, but 
still from BASIC, e.g, DIR :1. The major benefit from this 
and the other commands is that you remain in 
NEWBASIC, and once the Directory has been displayed, 
you may continue with what you were doing in 
NEWBASIC. 

SPOOLON command sends printer output to a 
specified disk file. The convenience of this becomes 
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obvious when you consider that this function may be 
performed in seconds. Later, while other computer 
operations are being performed, this file may be sent to 
the printer using DESPOOL, as despooling may be 
performed concurrently. Either parallel or serial printer 
operation may be used, the latter using an RS-232-C 
port. 

The DLOAD command will load object files into 
RAM, with control returning to BASIC. And DRUN exits 
NEWBASIC to execute the requested object file; 
however, a return to NEWBASIC is not possible 
following this command. 

The commands just mentioned and a few others are 
the only ones not available to non-disk users. The 
commands commented upon below are available to all 
users of NEWBASIC. 

For instance, there is a subset of QUICKKEY 
commands that permit shorthand notation for certain 
BASIC keywords. The command toggles this feature on 
and off, with 38 words being made available in this 
notation. An example of such a keyword is DATA = D, a 
very nice help when you may be entering many, many 
Data lines. Another is GOSUB = G, and so on. Most of 
the words are mnemonically associated with the letter 
selected as the short form, as noted in the above 
examples. A condensed-print Table of these keywords is 
printed in the manual, so that it may be photocopied for 
reference and kept nearby. 

There are several graphics commands that are quite 
useful, especially if you are preparing programs that 
would benefit in having borders around the display. This 
technique is used to advantage in the RS Disk BASIC 
training course, and it is quite attractive when used this 
way. One of the commands is RECT, followed by screen 
location points just as in SET; but parentheses are not 
required around the argument. Typically, RECT 0,0, 
127,47 will draw a perimeter one graphic block wide 
around the outside of the video display, very rapidly 
(less than a second). WTS will “white-out” the video ina 
little over a second, by turning on all of the graphics 
blocks. This function must have some useful purpose, 
probably a game program could utilize it by “flashing” 
the screen from white to black. One more graphics 
example from NEWBASIC is LINE (with an argument the 
same as RECT), which turns on the graphics blocks in a 
straight line. The argument given for RECT above would, 
in this case, draw a line from the top left of the display 
to the lower right, again — “instantly.” 

A number of commands are of use in program 
debugging. NTRON allows you to specify exactly what 
lines are to be traced, rather than the normal trace of all 
program lines. There are a number of qualifiers to this 
command, and | have found it limiting to a degree for 
this reason. But within its parameters it is very useful, 
and a rather nice bonus is that the current value of 
variables or expressions appear on the screen before 


each line is traced. There are a number of other 
commands in the programming category that permit 
some interesting short-cut approaches, but space does 
not permit including them all here. 

Video output may be echoed to a printer by using the 
PON command. This command also works with printer 
driver routines such as the TRS-232 system by Small 
Systems Software. | have been using this command very 
effectively in a program that requires an output to the 
printer line-by-line as entered from the keyboard. 

A rather interesting command, once again possibly 
useful for game programs or any alerting situation, is 
SOUND, whereby a choice of a wide range of tones and 
tone durations can be directed to the cassette output 
port. The arguments for the command may be 
constants, variables, or expressions, SOUND using the 
integer portion. Two Tables are provided in the manual, 
one showing the arguments to produce any one of 33 
frequencies from 65 to 14250 Hz, and one for 10 
different durations from .01 to 1.84 seconds. 

RS-232-C interface owners will be pleased to know 
that they can initialize this function from NEWBASIC. A 
screen display shows current status of the UART sense 
switches. If the baud rate is not within the range 
possible the word “other’ will appear. A dialog then 
ensues, permitting the setting of Baud Rate, Parity 
Enable-Disable, Stop Bits, Word Length, and Parity Odd- 
Even. This was the only function | was not able to try, 
not having a RS-232-C board. Two more commands are 
associated with the RS232 command, RSIN — enabling 
the input of characters either from the keyboard or the 
RS-232-C _ interface, while RSOUT will route printer 
output to the RS-232-C interface. The RSIN command, 
mentioned above, used in conjunction with the RSOUT 
command, will, according to the program authors, make 
possible the implementation of terminal programs, 
automatic log-on to time-sharing networks, and remote 
terminal input and output, all in NEWBASIC. A short 
program is provided in the manual, which would 
automatically initiate log-on to a remote terminal. Once 
again, it was not possible to utilize this function, but 
there is no reason to believe that this should not 
operate satisfactorily. 

The manual accompanying the program comprises 
42 pages is clearly understandable, and there are very 
satisfactory and ample examples shown for every 
command. A thirteen-item “Glossary for NEWBASIC” 
is provided. This is helpful, although about half of the 
entries are for common computer-oriented expressions. 
This Glossary could be usefully expanded with even 
more NEWBASIC-associated terminolgy. The manual 
has been printed from typewriter font copy, with some 
minor fadeouts (of the original, no doubt), but it has 
not been photographically reduced — a welcome 
relief from much of the documentation now being 
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MODEL Ill CORNER 


Model III Won’t Generate Control Characters 


| have a very early TRS-80 Model III which will not 
generate control keys. The manual comments on a little 
blue slip that came with it say “the key combination 
shift up arrow does not generate a control key. The only 
control keys available are those specially named keys 
such as BREAK and ENTER.” 

Can | do the hardware fix that Radio Shack offers for 
$20 myself? What is it? Is there a software fix that will 
enable me to generate control-S, -1, -O, etc. to control 
my Epson MX-80 printer ? 

The dealer says this is only the case on the first 600 
or so machines made and later models work in spite of 
the manual. Also note: the only problem so far with my 
32K cassette machine is an intermittent ability to turn 
off the cassette player. Otherwise it is performing very 
well and fun. 


(Bill Berson, 18 Fairport Road, Westport, CT 06880) 


ANSWER 

It is unfortunate that Radio Shack has created this 
problem for you and now wants you to pay to have it 
fixed, but we can’t think of any practical alternative to 
the $20 modification. Besides the fact that we don’t 
recommend that you void your warranty and open the 
computer, it would probably be impossible for you to 
get the ROM chip that you need from any place other 
than Radio Shack. It would cost at least as much if not 
more. 

While Radio Shack fixes this problem by adding a 
ROM chip, it is actually simply a keyboard driver 
program (along with other goodies) that is added, and 
this could be done entirely through software if you 
could get the program. We have looked into this 
program, and it is extremely complicated. Maybe it 
could be shortened, but there are many fancy things 
going on in it. We still recommend the hardware fix. 
Once you get it fixed, you can generate all control keys 


by using shift-down arrow and then a letter (including 
hath 


Editor/Assembler for the Model III 

Page 50 of issue 33 says that the Editor/Assembler 
program “works” on the Model III. Does this refer to 
the tape Editor/Assembler listed for $29.95 on page 8 
of the current Radio Shack Computer Catalogue ? If so, 
I'm confused, because the Radio Shack catalogue says 
“Model I only” for this program. 

Also, issue 33 advertises two Basic Compilers which 
seem to offer roughly the same capabilities. Can you 
explain the relative merits of buying one (i.e. Basic) vs. 
the other (i.e., Assembly Language). 
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Finally, please tell me what additional options | may 
have for getting machine language programs into my 
Model III computer. | desperately need more speed 
than | can get from the Basic programs | am now tied to. 


(LC. Baird, 320 East North Avenue, Pittsburgh, PA 
15212.) 


ANSWER 

The Editor/Assembler that we were referring to in issue 
number 33 is the Apparat NEWDOS or NEWDOS80 
version. When patched as shown there, it will work, but 
ONLY when running under TRSDOS version 1.1! The 
$29.95 tape Editor/Assembler WILL NOT WORK on 
the Model III. 

Issue number 33 advertises only the ZBASIC 
compiler by Simutek. The other well-known one is by 
Microsoft. Basic compilers will DEFINITELY speed up 
the operation of your programs, but | would advise that 
you study them carefully before buying. ZBASIC, as 
advertised, only supports integer calculations, but 
there is a later version that supports all computations., 
as does Microsoft's compiler. Basic compilers must be 
distinguished from assemblers. Compilers produce 
machine code from source code in symbolic higher- 
level languages, whereas assemblers produce direct 
machine code. 

We will continue to publish information on machine 
programs available for the Model III as we receive it. 
More and more programs are appearing now. 


Electric Pencil for the Model III 

Model | users of the Electric Pencil word processing 
system have been disappointed if they have moved up 
to the Model III, because a version of this program for 
the Model III has yet to appear. We have heard rumors 
about the Electric Pencil program being purchased by 
Harvard Pennington, of “Disk and Other Mysteries” 
fame, and a new version in the works, but we have yet 
to see it announced or available. We can’t even get 
more copies of the Model | version to sell now. 

Now we have finally come up with a solution: Dr. 
Howe has written a program that patches the Model | 
disk version of the Electric Pencil program to make it 
work on the Model II exactly as it does on the Model I. 
To use it you must already have the Model | version of 
the program. Either save it on cassette tape and load it 
into the Model III, or use the Convert utility program to 
save it on a Model III disk. Then all you do is run the 
program and it works. 
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DYNACOMP 


Quality software for* 
ATARI TRS-80 (Level II)** 


PET NORTH STAR 
APPLE II Plus CP/M Disks/Diskettes 


CARD GAMES 


BRIDGE 2.0 (Avaitable for ail computers) Price: $17.95 Cassetie/$21.95 Diskette 
An all-inclusive version of this most popular of card games. This program both BIDS and PLAYS 
either contract or duplicate bridge. Depending on the contract, your computer opponents will either 
play the offense OR defense. If you bid too high, the computer will double your contract! BRIDGE 2.0 
provides challenging entertainment for advanced players and is an excellent learning tool for the bridge 
Novice. See the software review in BO Software Critique. 


HEARTS 1.5 (Available for all computers) Price: $15.95 Casseite/$19.95 Diskette 
An exciting and entertaining computer version of this popular card game. Hearts is a trick-oriented 
game in which the purpose is not to take any hearts or the queen of spades. Play against two computer 
Opponents who are armed with hasd-to-beat playing strategies. HEARTS 1.5 is an ideal game for in- 
troducing the uninitiated (your spouse) to computers. See the software review in 80 Software Critique. 

POKER PARTY (Available for all computers) Price: $17.95 Cassette/$21.95 Diskette 
POKER PARTY 1s a draw poker simulation based on the book, POKER, by Oswald Jacoby. This 1s 
the most comprehensive version available for microcomputers. The party consists of yourself and six 
other (computer) players. Each of these players (you will get 10 know them) has a different personality 
in the form of a varying propensity to bluff or fold under pressure. Practice with POKER PARTY 
before going to that expensive game tonight! Apple Cassette and diskette versions require a 32 K (or 


STATISTICS and ENGINEERING 


DIGITAL FILTER (Avatisbts for 23 computers} Price: $29.95 Cassette/$33.95 Diekette 
DIGITAL FILTER « 6 comprehensive deus processing program which permits the user to Gexge hs own fier function oF 
choose from # menu of fitter farms. The fitter forms are subsequently converted into non-recurtive convolution coeffineats 
which permit raped date processing. In the eapbcit design mode the shape of the frequency transfer fencuon a specified by 
ditectty entering points along the dessred fitter curve in the menu mode, weal low pass, high pass and bandpass filters may be 
approximated to varying degtecs according to the number of paints used in the cakculauon. These filters may opuosslly also be 
smoothed with a Hanning function. In addition, multrstage Butterworth filiers may be selected Features of DIGITAL 
FILTER mnctude plotting of the dais before and after filtering, ay well as display of the chosen fitter functions. Alto included 
are convement dats worage, retrieval and editing procedures 


FOURIER ANALYZER (Available for 28 computers) Price: $16.05 Cametie/$20.95 Diskere 
Use this program to examine the frequency species of imited dursnion ugnals The program features evtomete scaling end 
plotting of the input data aod results Pracucal appiicavons include the enalysis of comphcated perterns in such fields 2s elec: 
{romes, Communacatioas snd business 


TFA (Transter Feaction Acalyrat) Price: $19.95 Cametie/$23.95 Diakecte 
Ths es » special sofiware package wtich may be used to evaluate the transfer funcuons of systems such as hi-fi ampbfiess and 
filters by exereaning thew response to pulsed inputs. TFA 1s « mayor modificauon of FOURIER ANALYZER end comunns an 
engineenng-oriented decibel versus tog-frequency plot as well as data editing features. Whereas FOURIER ANALYZER # de- 
signed for educational end screntufic use, TFA 1s an engineenng tool. Available for all computers 


HARMONIC ANALYZER (Avelinble for ell computers) Price: $24.95 Cansetee/538.95 Dishette 
HARMONIC ANALYZER wes detigned for the spectrum enalyus of repetitive waveforras. Features mclude data fite genera 
tion, editing end storage/retrieval as well as date end spectrum plotting. One parncutarly umque facility ob thes the mpot date 
need not be equally spaced or in order. The onginel data 1s sorted and a cubsc spline wnterpoleuon is used to create the date fe 
required by the FFT algorithm. 

FOURIER ANALYZER, TFA and HARMONIC ANALYZER may de purchased together for « combined price of $44.95 
(thee cassettes) and $56.95 (three dukewtes) 


REGRESSION | (Available for ell compaters) ‘Price: $19.95 Casertie $23.95 Diskette 
REGRESSION | is 0 unique and exceptionally versatile one<dumenuonal least squares “polynomut)"” curve fitting program. 
Features inctude very high eccuracy; an automat degrec determination opbon; an extenuive «nternal bbrary of fitting func- 
hnens; data editing; automauc dats and curve plotung: a stauisuced anslytis (cg: standard deviation, correlation corfficsent, 
te.}end much more In addition, new fits may de tned without reenterng the data. REGRESSION J is certsinly the cornes- 
stone program in any data analysis software brary 


REGRESSION Il (PARAFTT) (Avaiable for al computers) Price: $19.95 Coseatte/323.95 Diskette 
PARAFIT is designed to handle those cases in which the parameters are unbedded (potmbly nonkneasly) in the fiung func- 
Sion. The user simply mserts the functional form, acluding the parameters (A(I}. Ai2), etc.) as one or more BASIC statement 
lines. Dats and results may be manipulated and plotted as with REGRESSION 1 Use REGRESSION I for polynomial Mung, 
20d PARAFIT for those complicated funcnons. 


MULTILINEAR REGRESSION (MLR) (Avatiadle for all compaters) Price: $34.95 Cangntne/$12.95 Diskette 
MLR ts a profesnonal software package for anatynng dats sets coniazcing ¢wo oF more Lnearty independent Vanables. Bendes 
performing the banc regresnion calcutation, this program also provides easy to ase data entry, storage, reineval and editing 
functions. In addition, the uset may interrogate the sobunon by supplying values for the independent vanables. The number of 
vanables and date nze 1 limited only by the avaiable memory. 


larger) Apple tl. 
REGRESSION 1, 11 and MULTILINEAR REGRESSION may be purchased together far $49.95 («hree cassettes) oF 361.95 
CRIBBAGE 2.0(TRS-80 only) Price: $14.95 Cassetie/$18.95 Diskette (shree diskertes). 
This ts simply the best cribbage game available. It 13 an excellent program for the cribbage player in ANOVA (Avattable for 28 computers) Price: $99.95 Cometie/S43.95 Diskette 
search of a worthy opponent as well as for the novice wishing to improve his game. The graphics are tp the past the ANOVA (analyss of varmunce) procedure has been tumited to the large mainframe computers. Now 
superb and assembly language routines provide rapid execution. See the software review in 80 Software DYNACOMP has brought the power of this method Lo smal] systems. For those conversant with VA, the DYNACOMP 
Critique. sofware package tnctudes the I-way, 2-way and a Nees procedures. Also promded are the Yates 2%"? factonal dengns For 
those enfamlits with ANOVA, worry. The sccompenying documentation was wniten in a tutor fashion (by a pro- 
fessor tn the sybyect) and serves 23 a0 excellent introduction 10 the subject. Accompanying ANOVA 1 & support program for 
building the data base tnchuded are severe! convenvent features inctuding data editing. deleting and appending. 


BASIC SCIENTIFIC SUBROUTINES, Volume I (Not avaliable for Atari) 

DYNACOMP is the exclusive distributor for the software keyed to the popular teat BASIC Scwnirfic Subrounnes, Volume t 
by F Ruckdeschel (sce the BYTE/McGraw-Hill advertisement 10 BYTE maganne, January 1901), These subrouunes bave 
been assembled according to chapter. Inctuded with each collection 6 8 menu program which selects and demonstrates each 
subdrounne. 

Collection #1: Chapters 2 and 3: Data and function plotting. complen vanables 

Collection #2; Chapter 4: Matus and vector operetions 

Collection #3: Chapters Sand 6: Random number genersion, senes apprommenons 

Price per collection. $14 9$ Cassette/$18 95 Diskette 

All three collections are svatlable for $99.95 (three cassettes) and $49.95 (three dsskettes). 


Because the tent 15 a vital pan of the documentation, BASIC Scwanfic Subroutines, Vohsme 1s available from DYNACOMP: 
for $19 95 plus 75¢ postage and bandhng 


ROOTS (Available for 28 computers) Price $10.95 Cumnetie/$14.95 obecte 
In & nutshell, ROOTS sumuttancously Getermines all the zeroes of » polynomual having real coefficeents. There it 90 Lani on 
the degree of the polyoomial, and because the procedure 1s verstive, the accuracy 1 generally very good, No «uizal guesses are 
required a1 input, and the cakculssed roots are substituted back into the polynomial and che cesiduals dusptayed 


EDUCATION 


TEACHER'S PET I (Avaitabie for all compaters) Price: $11.95 Comette/$15.95 Diakette 
‘That 1 the first of OVNACOMP’s educanonal packages. Primary intended for pre-school to grade }, TEACHER'S PET 
provides the young student with counting practice, letter-word recognition and three levels of math shul exercises 


MORSE CODE TRAINER (TRS-80 only) Price: $12.95 Cassette /$16.95 Disbecte 
MORSE CODE TRAINER 13 designed 10 develop and emprove your speed and accuracy tn deciphering Morse Code. As such. 
MCT is an ideal software package for FCC test practice. The code sound 1s obuaned through the earphone jack of any stan- 
dard cassette recorder You may choose the prich of the tones as well es the word rate. Also, vanous modes of operation are 
available including number. punctuation and alphabet tests, as well as the keying of your own message. A very effective way to 
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GRAFIX (TRS-80 caly) Price: $14.95 Caseetie/Si0.95 Diskette 
‘This umque progrem allows you to eauty create graptucs directly from the keyboard, You ‘‘draw” your figure unng the pro- 
Gram's extensive cursor controls. Once the figure is made, # ts gulomatcally appended to your BASIC program es a string vas 
sable. Drew 2 “happy face". cal it H3 and then print a from yout program usag PRINT H$! Thus ws a very easy way to create 
and save graphics 
THOUGHT PROVOKERS TIPSY nm exert BASIC prewrens TIDY so removes 
TIDY 1 en assembly language program which allows you to renumber the lines in your BASIC programs. TIDY also removes 
unnecessary tpeces and REMask stavemeos. The revli 1s a compacted BASIC program wtnch uses much leu memory space 
and executes ugnificastly fester Once toaded, TIDY remains mn memory. you may load eny number of BASIC programs with 
FLIGHT SIMULATOR (Available for ali computers) Price: $17.95 Cussette/$21.95 Diskette out having 10 relosd TIDY' 
A reahisuc and extensive mathematical simulation of take-off, Might and landing. The program utilizes 
actodynarme equations and the characteristics of a real aurfor. You can practice instrument approaches 
and navigation using radials and compass headings. The more advanced flyer can also perform loops, 
half-rolls and sumilar acrobatic mancuvers. Although this program does not employ graphics, 31 is ex- 
calang and very addictive See the software review in COMPUTRONICS. 


VALDEZ (Available for all computers) Price: $15.95 Cassette/S19.95 Diskette 
VALDEZ 1s a computer simulation of supertanker navigation in the Prince William Sound/ Valdez 
Narrows region of Alaska. Included in this simulation 1s a realistic and extensive 256 x 256 element 
map, portions of which may be viewed using the sinp’s alphanumeric radar display. The motion of the 
ship itself us accurately modelled mathematically. The sumulation also contains a model for the tidal 
patterns in the region, as well as other traffic (outgoing tankers and drifting icebergs). Chari your 
course from the Gulf of Alaska to Valdez Harbor! See the software review in 60 Software Critique. 

NOMINOES JIGSAW (Atari, Apple and TRS-80 only) =— Price: $16.95 Cassette/$20.95 Diskette 
A jigsaw puzzle on your computer! Complete the puzzle by selecting your pieces from a table consisting 
of 60 different shapes. NOMINOES JIGSAW 1s a virtuoso programming effort. The graphics are 
supertative and the puzzle will challenge you with 11s three levels of difficully. Scoring 15 based upon the 


peraber, ef uesses taken and by the difficulty of the board set-up. The NOMINOES JIGSAW 15 available Delivery : . 
for TRS-AO "color computer All orders (excluding books) are sent First Class. 


Quantity Discounts 
Deduct 10% when ordering 3 or more programs. Dealer discount schedules 
are available upon request. 


Ask for DYNACOMP programs at your local software dealer. Write for detailed 
descriptions of these and other programs from DYNACOMP. 


DYNACOMP, Inc. 
1427 Monroe Avenue. Dept. T 
Rochester, New York 14618 
24 hour mail order phone: (716)586-7579 
Office phone (9AM-5PM EST): (716)442-8960 


New York State eesbécets pleaar 066 7% NYS sales tas. 


ORDERING INFORMATION 


All orders are processed and shipped within 48 hours. Please enclose payment with 
order and include the appropriate computer information. If paying by VISA or Master 
Card, include all numbers on card. 

Shipping and Handling Charges 

Within North America: Add $1.50 

Outside North America: Add 10% (Air Mail) 


CHESS MASTER (North Star aod TRS-80 only) Price: $19.95 Cassette /$23.95 Diskette 
This complete and very powerful program provides five ievels of play. {1 includes castling, en passant 
saptures and the promotion of pawns. Additionally, the board may be preset before the stan of play, 
permitting the examination of ‘book’ plays. To maximize execution speed, the program is written in 
assembly language (by SOFTWARE SPECIALISTS of California). Full graphics are employed in the 
TRS-80 version, and two widths of alphanumeric display are provided to accommodate North Star 
users. 

STARTREK 3,2 (Available for ell computers) Price: $11.95 Cassette/$15.95 Diskette 
‘This 13 the classic Startrek simulatton, but with several new features. For example, the Klingons now 
shoot a che Enterprise wthout warning while also attacking starbases im othet quadrants. The 
Klingons also attack with both light and heavy cruisers and move when shot at! The situation is hectrc 
when the Enterprise 1s besseged by three heavy cruisers and a starbase 5.0.S. 1s received! The Klingons aE ey eer 
get even! See the software reviews in A N.A.L.O.G., 80 Software Critique and Game Merchandising VISA 


GAMES PACK I (Available for all computers) Price: $10.95 Cassette/$14.95 Diskette 
GAMES PACK I contains the classic computer games of BLACKJACK, LUNAR LANDER, CRAPS, 
HORSERACE, SWITCH and more. These games have been combined into one large program for ease 
tn toading. They are individually accessed by a convement menu. This colleci:on is worth the price pust 


for-the DYNACOME Session of BLACTIACT *ATARI, PET. TRS-80, NORTHSTAR, and CPM ure registered tradenames and/or 
GAMES PACK II (Avaitable for all computers) Price: $10.95 Cassette/$14.95 Diskette trademarks. 
GAMLS PACK II includes the games CRAZY EIGHTS. JOTTO, ACEY-DUCEY. LIFE, WUMPUS 


and others As with GAMES PACK 1, ali the games ate loaded as one program and are called from a 
menu. You will particularly enjoy DYNACOMP’s vetsion of CRAZY EIGHTS. 


Why pay $793 of more pet program when you can buy a DYNACOMP coltection for just $10 93? 


**7RS-80 diskettes ure not supplied with DOS or BASIC. All DYNACOMP programs 
for TRS-80 will run on model Hi with the exception of TIDY, GRAPHICS. 
CRIBBAGE 2.0. 
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CONVERTING THE RADIO SHACK CABLE 
INTO AN EPSON CABLE 


Joseph Rosenman 


One day, they will invent a longer EPSON MX-80 cable. 
The EPSON cable is about three feet long, and if you 
acquire the perverse desire to locate your printer on 
the right of your TRS-80, you are going to be in trouble. 
After hearing rumors that the EPSON cable and the 
Radio Shack cable are the same, | ordered a five foot 
Radio Shack printer cable. The printer did work, but it 
seemed to skip an extra line all the time. Then, | 
discovered that | couldn’t underline. The rumors were 
false! There are a few differences between the Radio 
Shack cable and the Epson cable. The most important 
difference is that the Radio Shack cable doesn’t 
discriminate between line feeds and ENTERs. Much of 
the software expects that the printer requires both a 
line feed and a carriage return (ENTER), and that is why 
the printer skips an extra line. 

The answer to my problem was to convert my Radio 
Shack cable into an EPSON cable. After taking apart 
both cables and studying their construction, | discov- 
ered that the differences between the cables were 
clear and easy to spot. In Figure 1, there are diagrams of 
both cable connecters on the printer side (called a 36 
pin Amphenol connecter). The EPSON cable has no 
connection between eleven wires and pins. After 
disconnecting those eleven wires, | found that my 
Radio Shack cable functioned exactly as the EPSON 
cable did. While the procedure is very simple, it should 
only be attempted by individuals who are familiar with 
such things. You wouldn't want to cut the wrong wire. 
The total time needed for this modification is under 
fifteen minutes, and it can be accomplished with a 
small screwdriver and needle-nosed pliers. 


RADIO SHACK CABLE 


WIRE 

NUMBERS 2 4 6 8 1012 14 16 18 20 22 24 26 28 30 32 34 
olerelelololelerelelelerelerelerere) 

CONNECTOR | 192021 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 

PLUG 

PIN 

NUMBERS 12345 6 7 8 9 1011121314 15 161718 
loletorelerelolejolelelelejelererere) 

WIRE 13.5 7 9 111315 17 19 21 23 25 27 29 31 33 

NUMBERS 
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EPSON MX-80 CABLE 


WIRE 

NUMBERS | | if 14 16 1820 
OOODDDDDOCNOOND000000N0 

CONNECTOR | 1920 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 

PLUG 

PIN 

NUMBERS 12345 67 8 9 1011121314 15161718 
OODDDONONNVONONONOO0N0N0O0 

WIRE | 3.5 7911131517 212325 

NUMBERS 


To convert the Radio Shack Printer cable to an Epson 
MX-80 cable, disconnect the wires going to pin 
numbers: 


19 22 24 26 27 29 30 31 32 33 34 


(Note: no wire is ever connected to pins 18 and 36.) 


continued from page 13 


provided. There is a minimum of misspelled words, 
and these are consistently misspelled throughout the 
manual. 

This short review cannot adequately do justice to all 
of the features available in NEWBASIC. Overall, this 
program is an excellent utility, and is well worth its 
very modest cost. In fact, | believe the half dozen or so 
commands | am using consistently are alone worth the 
investment. The fact that this appears to be a problem- 
free program from initialization through to comfortable 
and easy full use, makes it a “happy” acquisition to 
anyone’s library of programs. Whether you are writing 
programs for business or pleasure, or if you are only 
interested in adding some very pleasant operating 
features to your computer, | have no hesitation in 
recommending it for your use and enjoyment. 

NEWBASIC - Modular Software Associates; distrib- 
uted by Computer Information Exchange, Box 159, San 
Luis Rey, CA 92068, and other dealers. Disk version 
(with disk) $35.90. Level Il Cassette $19.95. a 


ALIEN INVASION FORCE 


Andrew S. Braunstein 


This game program is designed to be played on a 
TRS-80 with 16K of RAM. 

| am sure that most of you have seen the ever- 
popular “SPACE INVADERS” or “GALAXIAN” or ads 
selling imitations of these games for popular micro- 
computers at $14.95 and up. Don’t despair, because 
here is my version called ALIEN INVASION FORCE, 
which will give you countless hours of delight as you try 
to beat your opponent's score, or if you play alone, your 
score. 

The aliens move back and forth, shower you with 
lethal bullets, and they will come down and attack, so 
beware ! This game doesn’t just involve luck, but skill is 
very important. You won't always be able to fire at the 
aliens, but you will always be able to move right and 
left. So when you can't fire, you had better get out of the 
way — fast! 

To move left, use the left arrow key. To move right, 
use the right arrow key. Use the space bar to fire your 
laser. The game will function smoother if you hold 
down the keys instead of hitting them rapidly (also 
saves wear on the keyboard). There is a built-in repeat 
function, so if you hold down a key, that action will 
continue until you let go. The arrows next to each 
player's score indicate how many turns they have left. 
Each player initially has three turns. The score displayed 
in the middle is the current high score. 


Good luck! 
19 VL RERRERAK AHH ERS HRS VERSIE HHH RGSS KYSER Y 
ll! "ALIEN INVASION FORCE dd 
12' VERSION 1.65 ay 
13." ** — (C)1981 BY ANDREW S. BRAUNSTEIN ** 


14 URES ORSHREGEH HERES HHS HERS HHH SSE SHH HS HHS HH YH 


20 CLEAR 808 

30 S(1)=8 : $(2)=0 : CLS : RANDOM : C$(1)=STRING$(3,91) : 
C$(2)=C$(1) : DEFINT A-Z : PRINT @ 9, "ALIEN INVASION FORCE" 
4) G=8 : GOSUB 120 : G=@ : H=316 : PRINT @ 128, "WE ARE THE 
CENTURIANS"; : PRINT @ 201, "YOUR MISSION: TO DESTROY THE 
CONVOY"; 

5) FOR X=1 TO 5 : U=(18-X)*1P : US=LEFT$(G$(X) ,8)+STRINGS (29 , 32) 
+ STRS(U)+" POINTS " : FOR B=64 TO 19 STEP -1 : PRINT @ H+B, 
LEFT$(U$,65-B); : FOR D=i TO 9 : NEXT 

69 NEXT : H=H+128 : NEXT 

79 J$=INKEY$ : PRINT @ 969, STRINGS(14," "); : FOR X=] TO 209 : 
NEXT : PRINT @ 960, "1 OR 2 PLAYERS", : FOR X=1 TO 200 : NEXT 
80 IF J$ = "" THEN 7@ ELSE IF J$ = "1" THEN P=i : GOTO 9 ELSE 
IF J$ = "2" THEN P=2 : GOTO 90 ELSE GOTO 78 

98 CLS : D=l : A=2 : K=RND(28)+25 : G=9 : GOSUB 120 : G=Q : 
Y=1 : U$=STRING$ (29, 128) 

198 C=1 

119 PRINT @ 956+K, S$ CHRS(3Q); : C$(C)=LEFT$(C$(C),3-Y) : 
T0=45 : T91 : IF C = 1 FOR H=i TO 6 : FOR X=1 TO 30@ : NEXT : 
PRINT @ 24, US; : FOR X=1 TO 308 : NEXT 


115 PRINT @ 27, "PLAYER ONE"; :; NEXT ELSE FOR H=l TO 4: 

FOR X=1 TO 309 : NEXT : PRINT @ 24, US; : FOR X=1 TO 300 : 
NEXT : PRINT @ 27, "PLAYER TWO"; : NEXT 

128 TS=RND(1f)+3 : PRINT @ 704, STRINGS(63,128); : 
6$(1)=CHR$(171)+CHR$ (147) +CHR$(143)+CHR$(163)+CHR$(151)+" " : 
6$(1)=G$(1)+G6$(1)+6$(1) : G6$(1)=STRING$(2, 128) 

+6$ (1) +6$(1)+6$(1)+STRINGS (2,128) 

130 G$(2)=CHR$(139)+CHR$(183)+CHR$(131)+CHR$(187) 
+CHR$(135)+" " : G$(2)=G$(2)+6$(2)+6$(2) : G$(2)=STRINGS (2,128) 
+6$(2)+6$(2)+G$(2)+STRINGS(2, 128) 

149 G$(3)=CHR$(135)+CHR$(175)+CHR$(131)+CHR$(159) 
+CHR$(139)+" " : 6$(3)=G6$(3)+6$(3)+6$(3) : G$(3)=STRINGS (2, 128) 
+G$(3)+6$(3)+G$(3)+STRINGS(2, 128) 

150 G$(4)=CHR$(151)+CHR$(139)+CHR$(191)+CHR$(135)+CHR$(171) 
+" " : G$(4)=6$(4)+6$(4)+6$(4) : G$(4)=STRINGS(2,128)+6$(4) 
+6$(4)+6$(4)+STRINGS (2, 128) 

160 G$(5)=CHR$(155)+CHR$(147)+CHR$(143)+CHR$(163)+CHR$(167) 
+" " > G$(5)=6$(5)+6$(5)+6$(5) : G$(5)=STRINGS(2, 128)+6$(5) 
+6$(5)+G$(5)+STRINGS (2, 128) 

178 G$(18)=STRING$ (64,128) : IF G = 8 THEN RETURN 

189 S$="__"+CHR$(176)+CHR$ (188) +CHR$(191)+CHR$(188)+CHR$(176) : 
1=9 : GOSUB 298 : I=P ; IF G6 > 9 THEN PRINT @ 24, "--==<"; 
STRINGS (7-LEN(STRS(HS)) 48); MID$(STR$(HS),2); ">=--"; 

199 D=D+A ; PRINT @ 64+D, G$(1); : PRINT @ 1924D, G$(2); : 
PRINT @ 320+D, G$(3); : PRINT @ 448+D, G$(4); : PRINT@ 576+D, 
G$(5); : PRINT @ 956+K, S$ CHR$(38); : IF G = 9 RETURN 

200 IF D >= 8 THEN A=-2 ELSE IF D < 1 THEN A=2 ELSE IF 
RND(6) = 1 THEN A=-A 

21 IF BB = 7 THEN BB=@ : RETURN ELSE FOR Tl=1 TO 6 : 

IF PEEK(1449B) = 128 GOSUB 298 : GOTO 258 

22 IF PEEK(14486) = 32 THEN K=K-4 : IF K < @ THEN K=O 

230 IF PEEK(14498) = 64 THEN KeK+4 : IF K > 58 THEN K=58 
240 PRINT @ 956+K, S$ CHR$(3B); : NEXT :IF RND(3) = 2 

THEN BB=7 : GOSUB 199 

250 GOSUB 399 : IF L® = 99 THEN 280 ELSE BB=7 : GOSUB 199 : 
IF RND(2) = 2 THEN 250 

268 GOSUB 479 : IF LO = 99 THEN 289 

278 IF RND(2) = 1 THEN AB=8 : GOSUB 479 : PK=4 : GOSUB 779 : 
AB=@ ELSE IF RND(75) = 25 THEN TP=45 : GOTO 129 

280 IF L@ <> 99 THEN 199 ELSE L@=@ : C=C+l ; IF C <=P 

THEN 119 ELSE Y=Y+1 : IF Y > 3 THEN 68) ELSE 199 

299 W=4 : V= : IF I = 9 THEN 379 

300 IF W <> 4 THEN RESET((K+2)*2,58-W) : RESET((K+2)*2,51-W) 
31 SET((K+2)*2,44-W) : SET((K+2)*2,45-W) : 

IF POINT((K+2)*2,43-W) GOSUB 349 : V=l : 1227 : PL=l 

320 IF PL = 1 G$(Q)= LEFTS$(G$(Q) , ABS(INT ((K-D+6)/6)*6-4)) 

+ STRINGS$(5, 128)+MID$(G$(Q) , ABS(INT((K-D+6)/6))*6+2) : BB=7 
GOSUB 198 : PL=O : 0-0 

330 WeW+6 : IF W> 49 OR V = 1 THEN RESET((K+2)*2,50-W) 
RESET((K+2)*2,51-W) : IF 12 = 7 THEN TO=TP-1 ; T2=0 : IF 

1 <= TS THEN T@=45 : GOTO 120 ELSE BB=7 : GOSUB 199 : 
RETURN ELSE RETURN ELSE 309 

349 IF W = 16 THEN Q=5 : GOTO 360 ELSE IF W = 22 THEN Qqé : 
GOTO 369 ELSE IF W = 28 THEN Q=3 : GOTO 369 ELSE IF W = 34 
THEN Q=2 : GOTO 369 ELSE IF W= 49 THEN Q=1 : GOTO 369 

350 Q=10 : IF E > 704 AND W = 19 THEN FS=STRINGS(9,128) : 
GV=2 : PRINT @ 794, STRINGS(64,128); : U=-MM : U=IP+U ; 
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U=U*19 :S(C)=S(C)+U : E=P : GOTO 379 

369 IF Q <> 1@ ANDMID$(G$(Q),K-D+3,1) <> CHR$(128) THEN 
U-Q : UFIP+U : U=U*12 : S(C)=S(C)+U 

370 PRINT @ 3, STRING$(7-LEN(STR$(S(1))) ,48); 
MID$(STR$(S(1)),2); : PRINT @ 18, C$(1); " "|: 

IF P = 2 THEN PRINT @ 54, STRING$(7-LEN(STR$(S(2))) 48); 
MID$(STR$(S(2)),2); : PRINT @ 58, STRINGS(4,32); : 

PRINT @ 53-LEN(C$(2)), C$(2); 

08 RETURN 

399 R=RND(58)+D+2 : W1=8 

AP® SET(R*2,W1) : GOSUB 452 : WI=W1+6 : 

IF WI > 46 RESET(R*2,W1-6) : RETURN 

41p RESET(R*2,W1-6) 

420 IF PEEK(14468)=32 THEN K=K-4 : IF K < @ THEN K= 

430 IF PEEK(14400)=64 THEN K=K+4 : IF K > 58 THEN K=58 
446 PRINT @ 956+K, S$ CHR$(38); : GOTO 409 

450 IF K <= R AND R < K+5 AND WI = 44 THEN RESET(R*2,W1) : 


FOR X=1 TO 3: PRINT @ 960, STRING$(63,128); : FOR Z=1 TO 200 : 
NEXT : PRINT @ 956+K, S$; : FOR Z=1 TO 2ff : NEXT Z,X : LQ@=99 
46 RETURN 


478 KL=RND(3) : PL=RND(9) : FOR MM=KL TO 5 : FOR X=PL TO 9 
IF MID$(G$(MM) ,4+((X-1)*6) ,6) = STRING$(6,128) THEN NEXT X,MM : 
RETURN ELSE 480 


488 FS=" "+MID$(G$(MM) ,2+(X-1)*6,6)+" "; IF AB = 8 
THEN RETURN 
490 IF X > 5 THEN Ml=-1 : RR=-3 : NH=56 : ELSE Ml=1 : NH=@ :RR=3 


590 HN=6 : GOSUB 548 : G$(MM)=LEFT$(G$(MM),1+(X-1)*6) 

+ STRING$(6,128)+MID$(G$(MM) ,8+((X-1)*6)) : BB=7 : GOSUB 199 
519 FOR E = MM*128+NH TO 704 STEP 128 : PRINT @ E+RR, FS; 
GOSUB 640 : PRINT @ E+RR+4, STRING$(6,128); : RR=RR+M1*RND(5) : 
IF RND(2) = 2 THEN BB=7 : GOSUB 198 : IF RND(2) = 1 THEN HN=6 
H1=] : GOSUB 549 : Hl=@ 

528 NEXT E : PRINT @ E+RR-64, F$; : IF X > 5 THEN BE=54+RR 
EN=-2 : ST=-8 ELSE BE=-2+RR : EN=54 : ST=8 

53@ GV=@ : FOR EE=BE TO EN STEP ST : IF GV = 2 THEN RETURN 
ELSE PRINT @ 784, STRING$(64,128); : PRINT @ 7P4+EE, FS; 

IF RND(2) = 2 THEN GOSUB 60@ : IF L@ = 99 THEN PRINT @ 74, 
STRINGS (64,128); : RETURN 

540 IF RND(3) <> 1 AND Hl = 1 THEN 55@ ELSE IF PEEK(144p 2) 

= 128 THEN GOSUB 298 : GOTO 572 

55@ IF PEEK(1440@) = 32 THEN K=K-4 : IF K < B THEN K=f 

568 IF PEEK(144@—) = 64 THEN K=K+4 : IF K > 58 THEN K=58 

578 PRINT @ 956+K, S$ CHR$(3B); : IF HN = 6 THEN HN=Q : 
RETURN ELSE IF RND(4) = 2 THEN BB=7 : GOSUB 199 


588 NEXT EE : PRINT @ 704, STRINGS$(64, 128); 

598 TO=T8-1 : IF Th <= TS THEN TA=45 : GOTO 120 ELSE PK=1 
GOSUB 778 : RETURN 

699 N=37 

619 IF N <> 37 THEN RESET(EE*2+12,N-3) : IFRND(4) = 2 THEN 
GOSUB 648 


628 SET(EE*2+12,N) : NeN+3 : IF EE >= K-6 AND EE <= K-2 AND 
N = 46 THEN RESET(EE*2+12,N-3) : FOR X=] TO 3: PRINT @ 969, 
STRING$(63,128); : FOR Z=]1 TO 208 : NEXT : PRINT @ 956+K, S$; 
FOR Z=1 TO 268 : NEXT Z,X : L@=99 : RETURN 

630 IF N >= 47 THEN RESET(EE*2+12,N-3) : RETURN ELSE 619 

64 IF PEEK(14499) = 32 THEN K=K-4 : IF K < @ THEN K=p 

65 IF PEEK(14409) = 64 THEN K=K+4 : IF K > 58 THEN K=58 

669 PRINT @ 956+K, S$ CHR$(38); : IF RND(4) = 2 THEN BB=7 : 
GOSUB 199 

679 RETURN 

688 CLS : G=8 : GOSUB 128 : G=@ : D=@ : SS=2 : 

IF S(1) > 8(2) THEN HX=S(1) ELSE HX=S(2) 
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699 IF HX > HS THEN HS=HX 

789 PRINT @ 768, "PLAYER ONE": : PRINT @ 834, 

STRINGS (7-LEN(STR$(S(1))) 48); MID$(STR$(S(1)) 2); : 

IF P = 2 THEN PRINT @ 822, "PLAYER TWO": : PRINT @ 888, 
STRINGS (7-LEN(STR$(S(2))) 48); MID$(STR$(S(2)) 2); 

71 D=D+SS : IF D >= 8 THEN SS=-2 ELSE IF D <1 THEN 

SS=2 ELSE IF RND(3) = 2 THEN SS=-SS 

72 A=64 : FOR X=1 TO5 : PRINT @ AtD, G$(X); : 

A=A+128 : NEXT X 

739 PRINT @ 974, "PRESS '1' TO PLAY AGAIN OR '2' TO END"; 
PRINT @ 731, "HIGH SCORE"; : PRINT @ 792, "--==<": 
STRING$(7-LEN(STR$(HS)) ,48); MIDS$(STR$(HS),2); ">==--": 

749 PRINT @ 25, STRINGS(17," "); ; FOR X=1 TO 189 : NEXT 
759 IS=INKEY$ : IF I$ = "1" THEN 39 ELSE IF I$ = "2" 

THEN CLS : END 

769 PRINT @ 25, "GAME OVER": : GOTO 71p 

77 FOR TY=RND(PK) TO 9 : IF NID$(G$(MM) ,3+(TY-1)*6,5) = 
STRING$(5,128) THEN VF=RND(4) : GOTO 789 ELSE NEXT : RETURN 
78 FOR RE=768 TO MM*128 STEP -128 : PRINT @ RE+VF, FS; 

HN=6 : HI=1 : GOSUB 549 : HI=@ : PRINT @ RE+VF, 
STRING$(9,128); : HN=6 : GOSUB 550 ; VF=VF+RND(1) : 

IF VF > 4+D+(TY-1)*6 THEN VF=VF-RND(19) 

799 IF VF >= 69 THEN VF=VF-1@ ELSE IF RND(2) = 2 THEN BB=7 : 
GOSUB 19p 

80 NEXT RE : G$(MM)=LEFT$(G$(MM),1+(TY-1)*6)+ MIDS(F$,4,6)+ 
MID$(G$(MM) ,8+(TY-1)*6) : BB=7 : GOSUB 199 : TB=TO+l : RETURN 


Andrew S. Braunstein 
P. O. Box 442 
Sharon, MA 02067 


DISK DRIVE WOES? 
PRINTER INTERACTION? 
MEMORY LOSS? 
ERRATIC OPERATION? 


Don’t 
Blame The 
Software! 


Power Line Spikes, Surges & 
Hash could be the culprit! Pat. 84,299,005 

Floppies, printers, memory & processor often interact! Our 
patented ISOLATORS eliminate equipment interaction AND curb 


damaging Power Line ale Surges and Hash. 


egral 
load any 
$62.95 
° ISOLATOR (ISO-2) 2 filter isolated eplocd socket banks; (6 
sockets total); integral Spike/Surge Suppression; 1875 W Max 
load, 1 KW either bank . $62.95 
e SUPER ISOLATOR (ISO-3), similar to 1SO-1 except double 
egring & arg ab genck --. $94.95 
* ISOLATOR (ISO-4), similar to ISO-1 except unit has 6 
SUPER ISL filtered sockets . 
* SUPER ISOLATOR (ISO-11) similar to 1SO-2 proept double 
filterin ou ression . i $94.95 
¢ CIRCUIT ‘BRE ER, any model (add-CB) Add$ 8.00 
« CKT BRKR/ISWITCHIPILOT (-CBS) Add $16.00 


AT YOUR Master-Card, Visa, American Express 
DEALERS Order Toll Free 1-800-225-4876 
(except AK, HI, PR & Canada) 


l= Electronic Specialists, Inc. 
171 South Main Street. Natick, Mass. 01760 
Technical & Non-800: 1-617-655-1532 


GRAPHICS TEXT PRINTING PROGRAM 


Joseph Rosenman 


There are two types of printers in the world of small 
computers: high quality (and expensive), and “the 
others”. In the April issue of Computronics, | described 
the EPSON MxX-80 printer. | believe that the MX-80 is 
significantly better than any other inexpensive printer, 
and that many TRS-80 users will elect to purchase it. 
With this in mind, | have written a special “art border’ 
text printing program for the MX-80. It should be pos- 
sible to modify the program to run on other printers 
that support TRS-80 graphics, but the high resolution 
print commands would need to be removed. 

This program prints some text, surrounded by a 
graphics border. The “box” (containing the text within 
the graphics borders) will be centered on the page. 
The text within the box will also be centered (based on 
the longest line). There are three ways to access text to 
be printed. The first way is to enter it directly into the 
program (by adding it to the source code). The 
program listing contains a twelve line text as an 
example. The second way is to enter text via the 
program. This method requires that you specify the 
number of lines first. The program will permit commas, 
colons, etc. It is possible to save code entered during 
execution (or from the program itself) onto disk. The 
third method is to read a disk file (saved from a 
previous run). The program is self-documenting. Every 
step offers a limited number of choices (with most 
incorrect choices ignored). The printer should be in 
standard mode for this program to run. (Set dip switch 
2-3 “on”, and 2-4 “off”.) 

The program assumes a paper size of 9.5 by 11 (or 
8.5 by 11 without side tear-offs). This means that there 
are 66 lines per page — the standard. Any variations 
from the standard might require program modifica- 
tions. The maximum line length is 61 characters. If any 
line larger is entered, the program will identify it, then 
enter into the edit mode. Edit mode permits 
modification of the text in the program buffer. From 
edit mode, it is possible to insert lines, remove lines, 
replace lines, list text, or test text. The program will not 
allow a return from edit mode unless the text passes 
the length test. (Edit mode is entered when errors are 
detected, or by the user prior to disk save and print.) 
The maximum number of lines is 48. The CLEAR 
statement reserves 2000 bytes of memory for string 
space (line 20). If the maximum number of lines (and 
line lengths) are used, there will be an “OUT OF 
STRING SPACE” error. The program could (conceiv- 
ably) use as much as 4000 bytes. Most programs will 
run just fine as it is. If you should enter an unusually 
large text, you might want to increase the value in the 


CLEAR statement. The program permits the specifica- 
tion of a graphics border. The top and bottom use an 
A-B pattern (the default graphics are 173 and 179). 
The sides use an A-B-A pattern (the default graphics 
are 158, 179, and 158). If you look into the program, 
you won't find the same numbers as presented here. 
The reason for this is that the EPSON printer uses 
different ASCII codes for graphics, when in the 
standard mode. The graphics codes will automatically 
be shifted upon entry. The borders use the 40 cpl print 
mode, while the text uses the standard (80 cpl). All 
characters overstrike and double print. FAIR WARN- 
ING — it takes a long time to print! 

In addition to the GRPHPRNT program, there is a 
short program called TEXTPRNT. TEXTPRNT will take a 
data file created by GRPHPRNT, and print it in the 
normal fashion. This allows you to get quick copies of 
whatever text you are working with in about one tenth 
of the time. While GRPHPRNT is a “fancy” program, 
TEXTPRNT is very cut and dried. TEXTPRNT requires 
no special instructions. 

There are a couple of additional facts about the 
EPSON MxX-80 that | wish to relate. When | first began 
to write this program, | intended that it handle text up 
to a length of 98. It would handle this by switching 
from 66 CPL mode to 80 CPL mode or to 132 CPL 
mode. | decided to abandon this, though, when | 
discovered that the emphasized and double print 
modes won't work in either 66 or 132 CPL mode. Also, 
you can’t switch in and out of 132 CPL mode on the 
same line. These are unfortunate limitations that users 
should be aware off. Although the printer versatility 
would benefit from the addition of these missing 
features, | want to emphasize that this is a FINE, low 
priced printer. 

Postscript: At the TRS-80 show held at the Statler- 
Hilton in New York this May, | learned of some new 
EPSON printers that are being released. A new version 
of the MX-80 has been released which includes 
friction feed along with the standard tractor feed (MX- 
80FT). There is also a new printer, the MX-100, that 
can handle paper widths of upto fifteen inches (the 
MX-80 can handle ten inches). Both the new MX-80 
and the MX-100 use the same ROMs as the original 
MxX-80, so they are completely compatible. | under- 
stand that the MX-100 has a suggested retail price of 
about $950.00 (the MX-80 retails for $645.00). | don't 
know the price for the friction feed MX-80. (I believe 
that the MX-100 will be available after the summer.) 
The MX-100 is said to have the friction feed as a 
standard option, but we can’t be sure of that until they 
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are generally available. | have also seen an upgrade for 
$75.00 that converts the MX-80 to “FT”. Unfortunately, 
| believe that this option removes the adjustable 
tractors (or so the advertisement implies). | don’t think 
the EPSON MxX-80FT has the adjustable tractors 
removed. If any readers have had any first hand 
experience with the upgrade kit, why not write toH & E 
Computronics and let us know the details. 


1 REM GRAPHIC PRINT PROGRAM BY JOSEPH ROSENMAN 6/81. 
20 CLS : CLEAR 2009 : DEFSTR A-G,W : DEFINT H-V,X-Z 
30 I=@ : DIM A(49) : D2=STRING$(63," ") 

49 E=CHR$(14) : El=CHR$(28) : E2=CHR$(27) : Fe" " 

59 FOR I=1 TO 25 : READ 12 : D3=D3+CHR$(I2) : NEXT I 
6 REN 


79 CLS : GOSUB 179 : ' INTRODUCTION ROUTINES. - 
80 CLS : GOSUB 830 : ' TEXT ROUTINES. 

99 CLS : GOSUB 559 : ' PRINT ROUTINES. 

198 REM 


119 REM CONCLUSION OR REPRINT. 

128 CLS : I=H+6 : PRINT @ 22, I; “LINES PRINTED" 

130 PRINT STRING$(64,CHR$(143)) : PRINT @ 342, "PRINT AGAIN? 
(Y/N) "| 

149 D=INKEY$ : PRINT D; : IF D0 = "" GOTO 149 

150 IF D = "Y" GOTO 9@ ELSE IF D = "N" PRINT @ 512, "Program 

completed” : END 

168 GOTO 149 : ' BAD INPUT. 

178 REM 

189 REM INTRODUCTION AND TITLES 

198 REM 

200 PRINT @ 76, "** * Graphic Print Program * * *" 

219 PRINT @ 155,"for the” : PRINT @ 213, "EPSON MX-89 Printer" 

22) PRINT @ 341,"by Joseph Rosenman" 

230 PRINT : PRINT STRING$(64 , CHR$(143)) 

249 PRINT @ 907, " copyright (c) 198] by J. Rosenman"; 

250 PRINT @ 602, 03 : ' GRAPHICS SYMBOL. 

269 FOR I=1 TO 1000 : NEXT I : PRINT @ 896, D2; 

270 PRINT @ 968, STRING$(46, CHR$(127)); 

280 PRINT @ 918, "Would you like instructions (Y/N)"; 

290 D=INKEY$ : PRINT @ 945, 0; : FOR I=] TO 169 : NEXT I 

308 PRINT @ 896, 02; : FOR I=l TO 25 : NEXT I 

31f IF D = "Y" GOTO 349 

320 IF 0 = "N" RETURN ELSE GOTO 286 

330 REM 

349 CLS : ' PRINT INSTRUCTIONS 

358 REM 

360 PRINT STRING$(64, CHR$(143)); 

37) PRINT " The Graphic Print Program allows you to print 

a poem or text” 

38) PRINT " on an EPSON MX-80 printer. The text is 
surrounded by a" 

399 PRINT " graphics border (user selectable). To use 
this program," 

498 PRINT " your MX-88 must be set to the -> STANDARD <- 
dip switch" 

41f PRINT " configuration. If you wish to enter your 
own border" 

420 PRINT " graphics, use the STANDARD TRS-89 graphics 
codes. The" 

439 PRINT " program will center the text. The text must 
be under 49" 
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449 PRINT " lines, with a line length under 62. The 
text could be" 

450 PRINT " edited into this file, entered under program 
control, or" 

468 PRINT " accessed from disk. If edited into the 
program, it must" 

470 PRINT" be stored in the ‘A’ array (located at 
line # 2630) ." 

486 PRINT " The variable 'H' must be set to the number 
of lines of" 

499 PRINT " text (line # 2619) when text is edited into 
the program." 

500 FOR I=] TO 14 : REM VIDEO BORDER 

519 PRINT @ I%64, CHR$(149); : PRINT @ (I+1)*64-1, CHR$(17f); 
520 NEXT I : PRINT @ 960, STRING$(63, CHR$(188)); 


538 PRINT @ 999, " TYPE <ENTER> WHEN READY TO CONTINUE "; 
549 D=INKEY$ : IF D = CHR$(13) RETURN ELSE GOTO 549 

559 REM 

560 REM PRINT ROUTINE. 

579 REM 


580 REM PRINT INITIALIZATION 

599 D2=STR$(H)+" LINES TO PRINT"+STRING$(5@," ") : PRINT 
602 PRINT A(1) : PRINT STRINGS(64, CHRS$(14Q)) : PRINT 

618 PRINT @ 346, D3 

620 PRINT @ 792, “READY PRINTER" 

630 PRINT @ 978,"( Type <Q> to abort. )"; 

649 D=INKEY$ : PRINT @ 414, ""; : FOR I2=] TO 20 : NEXT 12 
650 PRINT @ 414, CHR$(148); : FOR I2=1 TO 25 : NEXT 12 

IF D = "" GOTO 649 

660 IF D = "Q" PRINT @ 512, "* * * RUN ABORTED * * *" : END 
670 REM 

680 CLS : J=(66-(H+12))/2 : FOR I=l TO J : LPRINT : NEXT I 
699 LPRINT E2+"E"; E2+"G" : PRINT H; "LINES TO PRINT" 

709 Z=(64-J1)/2 

71P WeSTRING$(Z,"_") : REM LEFT MARGIN VALUE. 

728 REM PRINTER IS NOW INITIALIZED AND POSITIONED. 

730 LPRINT E; F; C : LPRINT E; F; C 

749 LPRINT E; F; 8; TAB(38); B : LPRINT E; F; B; TAB(38); B 
758 FOR I=1 TO H : D=STRING$(64-(LEN(A(T))+LEN(W))," ") 

768 LPRINT E; F; B; El; W; A(I); D; E; B : REM PRINT TEXT. 
778 PRINT @ 968, "" : PRINT @ 968, A(I); 

788 PRINT @ 6, D2 : PRINT @ 56, "LINE"; I ; NEXT I 

798 LPRINT E; F; B; TAB(38); B : LPRINT E; F; B; TAB(38); B 
890 LPRINT E; F; C : LPRINT E; F; C 

819 LPRINT CHR$(12) : REM ISSUE FORM FEED. 

820 RETURN 

839 REM 

849 REM TEXT PROCESSING ROUTINES eee 

859 REM 

868 REM TEXT INITIALIZATION 

870 ' GRAPHICS MUST HAVE 32 ADDED FOR MX-8@ STANDARD MODE. 
88@ B=CHR$(198)+CHR$(211)+CHR$(199) : REM SIDE BORDER GRAPHIC. 
898 B1=CHR$(158)+CHR$(179)+CHR$( 158) 

998 D=CHR$(2@5)+CHR$(211) : Dl=CHR$(173)+CHR$(179) : 

' TOP/BOTTOM. 

919 PRINT @ 788, “Default graphics"; 

928 FOR I2=1 TO 12 : DD=DD+D1] : NEXT 12 

939 PRINT @ 592, DD; : PRINT @ 656, DD; 

949 PRINT @ 720, Bl; : PRINT @ 784, Bl; : PRINT @ 848, Bl; 
958 PRINT @ 741, Bl; : PRINT @ 805, Bl; : PRINT @ 869, B1; 
962 PRINT @ 848, OD; : PRINT @ 912, DD; 


978 PRINT @ 8, “WHAT ARE THE GRAPHIC CODES FOR THE SIDE BORDERS" 
986 INPUT "(FOR THE DEFAULT OF 158 & 179, TYPE ENTER)"; M,N 
998 PRINT : IF M= 9 GOTO 1816 ELSE M=M+32 : N=N+32 

1998 B=CHR$(M)+CHR$(N)+CHRS(M) : M=P : N=O 

1918 PRINT “WHAT ARE THE GRAPHIC CODES FOR THE TOP & BOTTOM" 
1928 INPUT "(FOR THE DEFAULT OF 173 & 179, TYPE ENTER)"; M,N 
1938 CLS : IF M=@ GOTO 195@ ELSE M=M+32 : N=N+32 

148 D=CHRS$(M)+CHRS(N) : PRINT 

1958 FOR I=1 TO 19 : C=C+D : NEXT I : REM CREATE LINES. 

1968 REM 

1978 CLS : PRINT TAB(2), "SELECT OPTION NUMBER" 

1988 PRINT STRINGS$(63, CHRS(149)) 

1998 PRINT CHR$(191); "| 9) QUIT"; TAB(37); 

"1) READ IN DISK FILE"; TAB(62); CHR$(191) 

119 PRINT CHR$(191); “ 2) ENTER TEXT"; TAB(37); 

"3) USE TEXT IN PROGRAM"; TAB(62); CHR$(191) 

1118 PRINT STRINGS (63, CHRS$(149)) 

112@ PRINT @ 794, D3 

1138 PRINT @ 418, STRING$(3,CHRS$(157));" 2? "; 
STRINGS (3, CHR$(174)) ; 

1148 D=INKEY$ : IF D > "" PRINT @ 538, "OPTION ";D; : 

IF D > "3" PRINT " 2272"; 

115@ FOR I12=1 TO 109 : NEXT [2 : PRINT @ 414," "; 

1166 FOR I2=1 TO 66 : NEXT 12 : PRINT @ 414,"?"; 

1170 IF D = """ GOTO 1149 ELSE I=VAL(D) : IF I< § ORI > 3 
THEN PRINT @ 538, STRING$(12," ") : GOTO 114p 

1189 IF 0 = "S" THEN PRINT @ 512, “PROGRAM TERMINATED" : END 
1199 IF I < 1 OR I > 3 THEN PRINT @ 538, STRING$(12," ") : 
GOTO 1149 

1299 CLS : ON I GOSUB 1429, 2498, 2600 

1218 GOSUB 1498 : PRINT "MAXIMUM LINE LENGTH IS:";J1 

1228 PRINT "* * * TEXT LENGTH TEST CONCLUDED * * *" 
1239 REM 

1249 PRINT @ 458, "DO YOU WISH TO ENTER EDIT MODE? 
1258 D=INKEY$ : PRINT D; : IF D="" GOTO 1259 
1268 IF D > "N" AND D <> "Y" GOTO 1259 

1278 IF D = "Y" GOSUB 1659 : GOSUB 1499 

1289 REM 

1298 CLS : PRINT "DO YOU WANT TO SAVE THE TEXT TO DISK (Y/N)?"; 
1308 PRINT @ 602, D3 : PRINT @ 46, “"; 

1318 D=INKEY$ : PRINT D; : IF 0 ="" GOTO 1319 

1328 IF D = "Y" GOSUB 1358 ELSE IF 0D > "N" GOTO 1319 

1339 CLS : RETURN : ' TEXT ROUTINE COMPLETED, BACK TO MAIN. 
1349 REM 

1358 REM DISK WRITE ROUTINE. 

1368 PRINT @ 448, "WHAT IS THE OUTPUT FILESPEC", : 

LINE INPUT "2"; D 

1376 OPEN "0",1,0 : PRINT#1, H 

1386 FOR I=1 10 H 

1398 PRINT#1, A(I) : PRINT @ 512, A(T); D2 : NEXT I 

1498 PRINT#1, CHR$(@) : ' TO MAKE INTO PENCIL TYPE FILE. 
1419 PRINT “FILE SAVED" : CLOSE 1 : RETURN 

1428 REM DISK READ ROUTINE. 

1439 PRINT "WHAT IS THE INPUT FILESPEC"; : LINE INPUT "? "; D 
1448 OPEN "I",1,D : INPUT#1, H 

1450 FOR I=] TO H : LINE INPUT#1, A(I) 

1468 PRINT @ 512, A(I); D2 : NEXT I : PRINT "FILE READ,"; 
1479 PRINT H; "LINES OF TEXT" : CLOSE 1 : RETURN 

1489 REM 

1499 REM = TEXT LINE LENGTH TEST. 

1588 Jl=@ : G="": ' INITIALIZE MAX LINE LENGTH & ERROR CODE. 
1518 FOR I=] TO H 


(Y/N) "5 


1528 J=LEN(A(I)) : IF J > 61 GOSUB 1638 : REM ERROR TRAP. 

1539 IF J > J1 THEN Jl=J : REM FIND LARGEST LINE LENGTH. 

1549 NEXT I 

1559 IF Ji < 62 THEN RETURN : REM NO PROBLEMS. 

156 REM 

1578 REM ERROR TRAP CODE. 

1588 G= "ERRORS FOUND! "+CHR$(13)+G : PRINT G 

1599 PRINT: PRINT “GOING INTO EDIT MODE . . ." : FOR I=1 TO 990 
1608 NEXT I : GOSUB 1658 : GOTO 1499 : ' EDIT, THEN TEST. 

1618 REM 

1628 REM ERROR MESSAGE GENERATOR 

1632 G=G+"LINE"+STRE(1)+"="+STR$(J)+" CHRS."+CHR$(13) : RETURN 
1649 REM 
1658 REM 
1662 REM 
1678 Cl="EDIT MODE: Menu"+ STRING$(18," ")+ “<File contains" 
+F +F +" lines of text.>"+CHR$(13) 

1689 C2="9) QUIT 1) LIST FILE 

2) REPLACE LINE“+CHR$(13) 
1698 C3="_3) DELETE LINE 
5) TEST FILE"+CHR$(13) 
1708 C4=STRING$(19," ")+"6) CONCLUDE EDITING"+CHR$(13) 

171 C5=STRINGS (63, CHR$(131) )+CHR$(13) 

1728 C6=STRING$(3,CHR$(153))+" ? “+STRING$(3, CHR$(166)) : CLS 
1738 PRINT @ HB, C1;C2;C03;C4;C5 

1749 PRINT @ 41, H; : PRINT @ 346, C6 

1759 D=INKEY$ : PRINT @ 414, D; : FOR 12=1 TO 98 : NEXT 12 

1762 PRINT @ 358, CHR$(127); : L=I2/2 : PRINT @ 359," "; 

1778 FOR 12=1 TO 50 : NEXT 12 : PRINT @ 35p, “?"; 

1788 IF D = “" GOTO 1758 ELSE L=VAL(D) : IF L< @ ORL>6 

THEN GOTO 1758 

1798 IF D = "9" THEN PRINT @ 512, "PROGRAM TERMINATED" : END 
1802 ON L GOTO 1820, 1948, 2079, 2188, 2300, 2428 

1818 GOTO 1758 : ' BAD INPUT 

1829 REM LIST FILE ROUTINE. 

1838 CLS : PRINT C1;C5 : PRINT @ 41, H; : PRINT @ 12, “List”: 
1849 PRINT @ 192, ""; : FOR I=1 TO H STEP 1p 

1858 FOR J=@ 10 9: IF I+J > H GOTO 1919 

1869 PRINT I+J; ": "; A(I+J) : NEXT J 

1870 PRINT @ 962, "(TYPE <ENTER> FOR ADDITIONAL LINES)"; 

1888 D=INKEY$ : IF D = “" OR D <> CHR$(13) THEN GOTO 1889 

1899 CLS : PRINT C1;C5 : PRINT @ 41, H; 

1998 PRINT @ 12, “List"; : PRINT @ 192, ""; 

1919 NEXT I : PRINT @ 962, "(TYPE <ENTER> TO CONTINUE)"; 

1928 D=INKEY$ : IF D = "" OR D <> CHR$(13) THEN GOTO 1928 

1938 GOTO 1728 : ' RETURN TO EDIT MAIN. 

1949 REM ENTRY FOR REPLACE ROUTINE 

1958 CLS : PRINT C1;C5 : PRINT @ 41, H; : PRINT @ 12, "Replace"; 
1960 PRINT @ 384, "WHAT LINE 00 YOU WISH TO REPLACE"; 

1978 INPUT L : IF L < 1 ORL > 4H GOTO 1979 

1989 PRINT @ 784, "Old line:" : PRINT @ 768, A(L) 

1998 PRINT @ 962, "WHAT IS THE NEW LINE?"; 

2908 PRINT @ 832, “" : LINE INPUT A(L) 

2019 PRINT "LENGTH OF NEW LINE IS: "; LEN(A(L)); 

2029 PRINT @ 384, STRING$(63," "); 

2038 PRINT @ 384, "DO YOU WISH TO REPLACE ANOTHER LINE? 

(Y/N) "| 

2048 D=INKEY$ : PRINT D; : IF D = "" GOTO 2040 

2050 IF 0 = "Y" GOTO 1958 ELSE IF D <> "N" GOTO 2049 

2968 CLS : GOTO 1730 : ' RETURN TO EDIT MAIN. 


TEXT EDITOR ROUTINE 


4) ADD LINE 


continued on page 42 
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TEST QUESTIONS 
Gordon Speer 


In the teaching of BASIC programming there is a 
need for short test questions which require specific 
programming skills at each level of development 
throughout the course. For those of you who are either 
students or teachers | am printing some of my favorite 
questions and answers this month. | will send a small 
prize to the person who submits the best test question 
to me in the next three months, and will publish a 
variety of the ones submitted. 


LABELS 


Write a BASIC program which will print your name 
and address continuously in a six-line cycle to fit one 
inch mailing labels. Insert a delay loop of 1000 counts 
to slow the screen printer and make the display easier 
to read. 

This problem uses PRINT lines for both text and 
spacing. It also makes use of the GOTO and a simple 
FOR-NEXT loop. 


198 ' LABELS 

118 PRINT "THOMAS ALVA EDISON" 

12 PRINT "EDISON LABORATORY" 

138 PRINT "MENLO PARK, NEW JERSEY" 
14 PRINT 

158 PRINT 

169 PRINT 

178 FOR X=1 TO 100@:NEXT X 

180 GOTO 119 


PIZZA 


Write a BASIC program which will find out which is 
the best bargain in our local pizza place. They serve five 
sizes of pizza as follows: the regular seven inch size for 
$1.50, the large nine inch for $2.40, the giant ten inch 
size for $3, the family size thirteen inch for $5.50, and 
the hungry-teenager special sixteen inch for $8. You 
should first find the area of the pizza using the circle 
area formula A=Pi times r squared, then print a table 
showing the diameters, areas, prices, and area/$ of 
each of the five sizes. 

This problem makes use of READing-DATA, calcula- 
tion using multiplication, division, exponentiation, 
PRINTing in four columns with column headings, and 
an out of data test to prevent an out of data error. 


198 ' PIZZA 
118 DATA 7,1.59 
128 DATA 9,2.49 
138 DATA 10,3 
146 DATA 13,5.58 
159 DATA 16,8 


22 ‘(COMPUTAOINICS: 


168 DATA 9,8 

179 PRINT 

18Q PRINT "DIAMETER" ,"AREA", "PRICE", "AREA/PRICE" 
199 PRINT 

208 READ D,P ‘DIAMETER, PRICE 


219 IF P= THEN END 
228 LET A=3.14*(D/2)>2 
230 PRINT D,A,P,A/P 
249 GOTO 200 


‘OUT OF DATA TEST 
"AREA OF PIZZA IN SQUARE INCHES 


DIVING 


Write a BASIC program which will calculate the 
scores in a diving competition. Each dive is assigned a 
degree of difficulty ranging from 1.0 for the bellyflop, to 
3.0 for the triple twisting back somersault in the layout 
position. Five judges score the dives and assign up to 
6.0 points each. The highest and lowest scores are 
discarded and the remaining three are totaled and 
multiplied by the degree of difficulty to determine the 
score for the dive. 

This problem uses INPUT statements and a FOR- 
NEXT loop to count the five judges. A simple totaling 
step in line 230 and a short routine to find the highest 
and lowest judge’s score complete the essentials. Line 
140 is essential to preset the low score comparison L to 
ahigh value. It is not necessary to similarly preset H toa 
low value unless, in some application, the high might 
be below zero (as in winter temperatures), since H has 
a value of zero at the beginning of the program like all 
variables. 


199 ' DIVING 

119 CLS:PRINT CHR$(23) 'CLEAR SCREEN, WIDE LETTERS 

120 PRINT 

138 INPUT "DEGREE OF DIFFICULTY ";D 

149 LET L=16 ‘PRESET LOW SCORE COMPARISON, HIGH 
159 PRINT 


168 FOR J=1 T0 5 "COUNTS THE JUDGES 
17) PRINT "SCORE FROM JUDGE #"J; 

189 INPUT S(J) 

198 IF $(J) > L THEN 219 

200 LET L=S(J) "NEW LOWEST SCORE 

210 IF S(J) < H THEN 232 

220 LET H=S(J) "NEW HIGHEST SCORE 
230 LET T=T+S(J) 


249 NEXT J 

258 LET S=0*(T-L-H) "COMPUTES THE SCORE 
269 PRINT "SPACE 

279 PRINT " SCORE=";S 

280 PRINT 

299 INPUT “(ENTER) TO RUN AGAIN"; Q 

302 RUN 


PAYROLL 


Write a BASIC program which will read employees’ 
names and hourly rates of pay from a DATA statement, 
allow you to enter their weekly hours worked on the 
screen, and calculate their weekly pay, allowing time- 
and-a-half for all hours over forty for the week. This pro- 
gram should also accumulate company totals for hours, 
overtime hours, and gross pay and display these after 
the last employee’s pay has been calculated. 

This is a very straightforward program, particularly 
suited to a lesson in flowcharting. Students are 
encouraged to put their friends on a payroll, and decide 
how much to pay them. Notice that in line 150 the 
overtime hours are reset to prevent a less-than-forty- 
hour employee from receiving the overtime hours of 
the previous overtime employee. 


198 ' PAYROLL 

110 DATA SMITH, MARVIN 4. 30, ANDERSON , MARSHA 5.28 
128 DATA FORD, SAMUEL ,5.15, YOUNG, RALPH 6.05 

138 DATA OUT, OF 2 
148 CLS 

158 LET OH= 

168 READ L$,FS$,R 
178 IF R=@ THEN 319 
188 PRINT 

198 PRINT “HOW MANY HOURS THIS WEEK FOR "; 
208 PRINT FS" "L$; 

219 INPUT H 

228 LET TH=TH+H 

238 IF H < =4@ THEN 279 
249 LET OH=H-48 "QVERTIME HOURS 

245 ‘NOTE 'TO' CANNOT BE USED AS A VARIABLE - IT'S A 

BASIC WORD 

258 LET OT=0T+0H ‘TOTAL OVERTIME HOURS - ALL EMPLOYEES 
260 LET H=40 "REGULAR HOURS 

278 LET P=R*(H+1.5*0H) 'PAY 

280 PRINT "WEEKLY GROSS PAY ="P 

299 LET TP=TP+P ‘TOTAL PAY - ALL EMPLOYEES 

399 GOTO 159 

318 PRINT 

329 PRINT 

330 PRINT,"COMPANY TOTALS" 

34@ PRINT "TOTAL HOURS ="TH 

359 PRINT "TOTAL OVERTIME HOURS ="0T 

368 PRINT "TOTAL PAY ="TP 


CITYSORT 


Write a BASIC program which will READ the names 
of thirty cities from DATA statements, sort them in 
alphabetical order, and print them in four columns with 
the names in order vertically down the first column, 
then the second column, etc. 

The tricky part of this problem is not the sort routine, 
which is a typical bubble-sort, but the function in line 
420 which generates subscripts for the variable from 
the line and column numbers to accomplish the 
assigned print format. Note that eight lines of four 


‘CLEAR SCREEN 

"RESET OVERTIME HOURS TO ZERO 

"LAST NAME, FIRST NAME, HOURLY RATE 
‘OUT OF DATA TEST 


"TOTAL HOURS - ALL EMPLOYEES 


columns will print thirty-two positions, the last two of 
which are nulls since only thirty names were read. To 
prevent printing the dummy data, it must be changed 
to a null (line 230). 


198 '  — CITYSORT 

118 DIM C$(5B) 'VARTABLES WITH SUBSCRIPTS > 1@ MUST BE 
DIMENSIONED 

128 DATA CINCINNATI , CLEVELAND, BALTIMORE , WASHINGTON , BOSTON 
130 DATA NEW YORK, BUFFALO, ATLANTA, DALLAS ,HOUSTON , CHICAGO 
149 DATA INDIANAPOLIS NASHVILLE, KANSAS CITY,ST LOUIS 

158 DATA DENVER, MINNEAPOLIS DES MOINES MILWAUKEE ,LOS ANGELES 
168 DATA SALT LAKE CITY,SAN FRANCISCO, PORTLAND, SEATTLE 
178 DATA HONOLULU, OMAHA, TOPEKA,SAN ANTONIO, MIAMI , TAMPA 
188 DATA OUTOF 

199 LET N=N+1 "INCREMENT THE SUBSCRIPT 

208 READ C$(N) ‘CITY NUMBER N 

210 IF C$(N)="OUTOF" THEN 238 

228 GOTO 199 "READ ANOTHER NAME 

230 LET C$(N)="" "CHANGES DUMMY ‘OUTOF' TO NULL 

248 LET N=N-1 ‘CORRECTS CITY COUNT 

258 PRINT "THERE ARE“N"CITIES IN THE DATA” 

269 'SORTING STARTS HERE 

270 FOR I=1 TO N-1 "NUMBER OF TIMES THROUGH THE LIST 
280 FOR J=1 TO 1 "NUMBER OF PLACES DOWN THE LIST 
298 IF C$(J) < C$(J+1) THEN 339 ‘THEY ARE IN THE CORRECT ORDER 
300 LET T$=C$(J) "TEMPORARY STORAGE 


31f LET C$(J)=C$(J+1) ‘MOVE UP 
32 LET C$(J+1)=T3 "MOVE DOWN 
338 NEXT J 

349 NEXT I 

350 ‘SORTING IS COMPLETE 

36 CLS "CLEAR SCREEN 
376 PRINT 

388 PRINT," CITIES" 

398 PRINT 

4p FOR L=1 10 8 "LINES 

419 FOR K=1 TO 4 ‘COLUMNS 


429 PRINT C$(L+8*(K-1)), 
439 NEXT K 

449 NEXT L 

458 PRINT 

469 PRINT 


Gordon Speer 
3304 Woodlawn Road 
Sterling, IL 61081 r 
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Now that we have had a chance to use it on the 
Model III, we are delighted with its improved perform- 
ance. The Model III's video display is much more 
pleasing to spend hours in front of, and it is 
automatically upper/lower case. The left shift key 
functions as the shift key, while the right shift key is the 
control key, so no computer modifications are necessary. 

Computronics now has copies of this program, 
which they will sell for $19.95. a 
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24 


Attention 


BARGAIN HUNTERS 


Receive Hundreds of Classified Ads 
Like These Every Month 


HARD DISK DRIVE Diablo Mod 31 
1.2 MByte std. density. Includes 
power supp. and cable, rack mount 
slides, amd manual. Excellent 
condition. $450. Ga 


a 


FOR SALE: Interdata (Perkin-Elmer) 


7/16 Mini with 32KB core, fr 
aaa 50A PWR supply. includes 
IS tape reader, interfaces for LP, 2 
(TTY), and RS-232 (Full duplex 
Includes manuals 


FOR SALE: Heath H9 video ter- 
minal, excellent condition, $175 or 
best offer. You ship. (214) 962-4484 


WANTED: DIGITAL 
memory boar. 
chips and Phi 
(kit, 


\L Group 32K 
d without memory 
deck controller board 


COMPUTER AUTOMATI 


assembled or not working). 


RT 
16; 16 k-word core memory, 
PF-R. Modified Mod. ASR-33 TTY 


Manuals, utilities, 
many option 
Driver, 16 bit 


250 punc contr. 64 
software. 

$3500 kit. Like new. Sell for $2250. 
305-962-6677. 2058 Griffin Rd., Ft. 


Lauderdale, Fl 33312. 


COMPUTER SHOPPER, the new buy, sell, and trade 
publication, is ready to help you with the jatest infor- 
mation on personal, small business and large-system 
computers, accessories and software. 

Each ad-packed issue is full of bargains you are 
looking for Included are ads from _ individuals 
throughout the United States who are selling their 
good, pre-owned equipment just so they can trade-up 
to new equipment coming on the market. 

But, COMPUTER SHOPPER'S bargains won't be 
yours unless you subscribe. This useful, money- 
saving publication can become your way to com- 
municate with other buyers, sellers, and traders all over the nation. 

Whether you are a hobbyist or a part-time user, COMPUTER 
SHOPPER will put you in touch with the nationwide computer 
marketplace in time for you to take advantage of bargain oppor- 
tunities. 

Have something to sell? ACOMPUTER SHOPPER subscriber pro- 
bably wants to buy it. 

Looking for a part. component or even a complete system? A 
COMPUTER SHOPPER subscriber probably wants to sell it. 

COMPUTER SHOPPER is THE marketplace for anything in com- 
puters and is read by thousands of people who are ready to buy. 

COMPUTER SHOPPER offers a unique format in which classified 
ads are categorized for fast location of specific items. Combining 
this with low individual ad rates — 10 cents a word — 


assemblers and 


boards - 16 bit 1/0 
1/0, Asynzh modem 
bit output, 10 th ae 

irly complete documen- 
Oe Oe ad running in Fortran. 
Not much more th 
Herb Sauer, 303-494-8724. 


an TTY at $1000. 


makes it the ideal place for buyers and sellers to com- 
municate. And, its mix of individual, dealer, and 
manufacturer ads enable subscribers to find whal 
they want at the best price possible. 


COMPUTER SHOPPER will work for you in other 
ways, too. If you are just thinking about getting into 
computers, it can help you learn product availability 
and prices before you make a decision. And, through 
the timely ads, COMPUTER SHOPPER will keep you 
abreast of changes in the market which could create 
bargain opportunities for you. 


BUT COMPUTER SHOPPER cannot work for you unless you 
subscribe. 


Want to look us over first? We'll give you your first issue FREE 
and then bill you for the next 12. If you are not convinced COM- 
PUTER SHOPPER suits your needs, just write ‘cancel’ on the in- 


voice and return it. 


And, to let COMPUTER SHOPPER start working for you right now, 
with a paid subscription we'll also give you a FREE classified ad to 
sell your pre-owned equipment or to find equipment you want. 

If you don't need to use the free classified ad now, use it anytime 
during your subscription. 


Subscription: $19/year, 12 issues plus your first free one. Bank 
cards accepted. Money back guarantee. 


The Nationwide Marketplace for Computer Equipment 
COMPUTER SHOPPER 


P.O. Box 23 @ Titusville, Florida 32780 
Telephone 305-269-3211 


MasterCharge or VISA orders only, call TOLL FREE 800-327-9920. 
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MODEL il FOR $175.00 


Yes, double density is here! Two 40 track drives give you 368K of storage. And if thats not enough, four 80 
track drives will give you 1.4 megabytes of on line storage. Alll this with the added speed of double density 
operation, not to mention 80% more storage per diskette. 

No loss of your software library or conversion of your single density diskettes is necessary. DOSPLUS 3.3D 
reacts to the diskette. It will read single or double density with equal ease. It is not JUST a double density 
operating system, it is a double AND single density system. It is the first of it's kind. No one can offer you what 
we canl To change a disk to double density you need only format a double density disk, and then ONE 
command (TRANSFER), will bring over all your files. Very simple to use, but not necessary, because DOSPLUS 
will read them as they are now. Just insert single density diskettes and run (with our operating system). The 
machine will know what you are doing without having to be told ANYTHING! 

If you want your computer to chain functions, then you need DOSPLUS 3.3D (for example, from powerup you 
could have your machine call another computer, scan a data base for appointments, recording any that appear 
on your printer; and then load in our new BASIC, setting files and mem/size, and start your program so your 
secretary can go right to work). With our BUILD, DO and AUTO, all of the preceding would be child's play. By the 
way, you could have also set the time and date, looked at the directory of all your drives as well as checked 
the free space map (which tells you not only how much space you have on a diskette, but also where it is and 
what it is used for) DOSPLUS is a truly intellegent, easy to use operating system that gives you all your 
computer is capable of delivering. 

You probably guessed that for $175.00 what we are doing is turning your Model | into a Model Ill. It's so 
east! anyone can do it in 10 minutes! Why spend $2,500.00 for a Model Ill when you can get the same 
computing power, with our kit, and NO SOFTWARE CONVERSION, for only $175.00. Don't throw away your 
Model |, let us expand it! Move up to the world of double density. 

You will reap the benefits of our error-free software. No miracles, just plain hard work and a lot of testing by 
experts and novices alike. Test us and judge yourself. We guarantee you will be 100% satisfied. If you are the 
first to Find a legitimate "BUG" in our software you will be rewarded with a brand new $100 dollar bill. 

Your systems disk will come complete with an all new single/double density disk editor called DISKZAP, and 
a BASIC program compressor called CRUNCH. Also included is PURGE, a utility to make the mass removal of 
unwanted files from a diskette easy, and RESTORE, a program that makes recovering a dead file as easy as 
typing in a command line. TRANSFER is just as,it sounds, a program that moves all files (except systems) from 
one diskette to another. Single density to double or vice versa. CLEARALE is used to zero data files on a 
diskette for a “clean slate’. DISADUMP is a new machine language sector display/modify program that works 
with filespecs instead of tracks and sectors. Used in conjunction with DISKZAP, you will have more disk editing 
power than ever before, with less frustration than was ever thought possible. 

You will now be able to use all your DOS commands from our new BASIC with the CMD feature. And how 
about variable length records that really work, first time, EVERY time! This will allow you to use the ISAM 
programming technique for vastly improved handling of large data bases and lightning speed unheard of in 
BASIC. (ISAM stands for Indexed Sequential Access Method). 

You can create programs that will run on MOD Ill DOSPLUS, yes, 100% compatability. 


If inflated computing power without an inflated price tag is what you're after, contact us at the address 


below. 
HERDS ERS FLIES CALL TOLL FREE FOR FAST SERVICE 
SGP FUE: (800) 824-7888, OPERATOR 193 
SSO: EIN — FOR VISA/MASTERCHARGE/C.O.D. ORDERS 
ializi i Calitorma dial (800) 852-7777. Operator 193 
Specializing in the Tandy Line Alaska and Hawai dial (800) 824-7919 Operator 193 
TOLL FREE LINES WILL ACCEPT ORDERS ONLY! 
ee v7] 5846 Funston Street For Applications and Technical information. call Pron 
ees = (305) 983-3390 or drop us a Card 
hee (305) 983-3390 ; Hollywood, FL 33023 


Dealers inquires invited 
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BEGINNER’S CORNER 


A. Douglas Werbeck 
ELEMENTARY ARRAYS (PART V) 


Yes sir and yes ma’am, you are sitting in on 
Beginner's Corner #TWELVE. One year has passed 
since my original August 1980 column entitled “THE 
MEGABYTE GAP.” That column outlined my opinions 
on the shortcomings of TRS-80 teaching materials 
available at that time. It was my feeling that most of 
the teaching authors wrote from the mental level of a 
mainframe computer. “Mainframe,” for those that are 
unfamiliar with that word, is the term applied to the 
really large computers used in banks, government and 
TPC (the phone company). Right there, written before 
me on my SCRIPSIT video, is an example of the very 
subject | am describing. | am talking about the fact that 
| stopped in the middle of my text to explain the term 
“mainframe” to the uninitiated. My gripe against the 
majority of teaching authors one year ago was that they 
“assumed” a level of knowledge or a known set of 
computer buzzwords on the part of the reader. 
“Buzzword” is computerese for “slang.” A couple of 
issues ago | submitted an original manuscript to the 
very learned COMPUTRONICS powers that be, and 
when the column was printed, | noticed that someone 
had gone and changed my computerese to “comput- 
erese,” They were not challanging my spelling this time 
(it is always perfection of course), they inserted quotes 
around computerese to indicate to the readership that 
it was a non-standard word, not to reach for Mr. 
Webster for a definition. Of course, to me “comput- 
erese” refers to that special language our computing 
forefathers originated. | certainly did not originate the 
word, but | do use it freely. It’s nice to see that the 
COMPUTRONICS editorial powers are as conscien- 
tious of the plight of the Beginner as of this author's 
intentions ! 

In summary, | felt that the well meaning, learned 
authors attempting to teach TRS-80 Beginners had 
trouble communicating. | purchased a book back then 
whose title was “.... for BEGINNERS.” (1 am witholding 
the name of the book.) | was lost past page 7! It was 
obvious to me when the author said “for Beginners,” 
he was talking about Beginners to that particular AREA 
of computing, NOT Beginners to computing! It made 
me wonder whether | was intentionally misled to sell 
books! On the other hand, | think there is the sad 
possibility that the author had forgotten that people 
are not born onto this earth with a knowledge in 
electronic computing! Unlike newborn spiders so 
expert in web spinning, TRS-80 owners come into this 
world kicking and yelling at ground zero! 

Well, here we are a year from that column, so | took 
some time to reflect before writing this column. How 
do we stand? | would say MUCH better! Not great, 
but MUCH better. My new Model III came with three 
books, GETTING STARTED WITH TRS-80 BASIC, TRS- 
80 MODEL III - Operation and BASIC Language 


26 ‘(COMPUTROMICS: 


Reference Manual, and the DISK SYSTEM OWNER’s 
MANUAL, a slightly unusual preliminary version that is 
missing pages. | think it would be safe to say, in general 
terms, that whatever level of computer expertise was 
held by a new owner, these books would do nicely in 
the support of the equipment. Of course, if | had my 
drothers, | would change a handful of things, but 
overall, | think RS has done an excellent job of 
delivering this very complex state-of-technology ma- 
chine with more than adaquate documentation. 

| am not saying that | feel the subject of TRS-80 
microcomputer education is well covered in general. 
Even more emphatically, | am not saying BOOKS have 
it “covered.” If you haven't noticed, things out there in 
microcomputer land are changing at an incredible rate 
of speed. If you have the opportunity to look through 
some electronic oriented magazines from say, 1975- 
76, just FIVE years ago, let yourself be overwhelmed by 
the ancient, computer offerings. Back to the subject of 
books, by the time a book gets written, edited, printed, 
distributed and read, there is a very good chance that 
things have changed significantly! And, of course, that 
leads up to a TRS-80 adage, “computer people cannot 
exist on books alone.” Subscribing to a magazine, 
especially the one that is published monthly from 
Spring Valley, New York, can do a lot in keeping you 
abreast of the latest events and techniques. Why, it 
even has a crystalline device that predicts future 
happenings! Before you go and think me biased, let 
me say that my editor, Dr. Howe, gives me free rein in 
my offerings. He does not direct the column content 
nor steer my viewpoints, and ! can honestly say that 
after a year’s assocation with our publisher, Howard 
Gosman, he has impressed me as a man whose 
objectives, in operating H&E COMPUTRONICS, are 
honest and of the best intention. | say, a truly 
outstanding group of people to work with as an author 
and a most reputable organization to patronize as a 
consumer. Enough birthday cake ! 

Before we get back to the amazing arrays, | would 
like to present an interesting concept for your 
consideration. This is a Beginner's Corner column, It is 
aimed at the Beginner, it is meant to fuel the 
Beginner's appetite for continuing knowledge in the 
facinating world of TRS-80’s. Remember the pioneer 
that “had” to know what was on the other side of the 
proverbial hill? Well that’s what | mean to show the 
Beginner - not necessarily how far into the esoteric 
one can take this subject, but to illustrate to the 
newcomer that furthering his or her venture into TRS- 
80dom need not be a complicated or frustrating 
experience. It can and needs to be a pleasureable 
voyage. 

In writing a column for Beginners, the question 
arises whether to continue to build on previous 


columns, sort of in a classroom type of fashion, or to 
begin each column at ground zero. After a year’s worth 
of columns | wonder how many of my original 
followers are still with me? Shall | write for them or for 
the first time reader? | am presenting these questions 
not to merely encourge mail, which is always welcome, 
but to divulge some of the thought and areas for 
decisions that support the subject matter for this 
column. | have tried to present material that will keep 
the Beginner coming back for more, and give the 
person who is a step beyond Beginner some food for 
thought. If you have feelings on this subject, please 
feel free to communicate with me. Communication 
channels are listed at the end of this column. 

Ok, now back to arrays, before the title of this 
column becomes inappropriate. Let me start by 
correcting an error in the May issue on page 14, upper 
right hand corner. An array that has three dimensions 
such as (9,9,9), has ONE THOUSAND available 
positions, NOT 729. (A momentary, unthinking, space- 
out on my part!) One month later, at the time of the 
June issue writing, | was still unaware of this error in 
the May issue. But in the June issue, | did review the 
9x9x9 array and correctly stated that there were 1000 
available positions. Now that | have corrected the 
readership masses, you strange egg-shaped, blue 
glowing object that has been hovering over my home 
at night, please leave! You readers can sure turn into 
an ugly mob! 

Recapping our last known learned position in the 
galaxy, we had discussed three popular, practical 
methods for loading numerical arrays. They were: (1) 
line input by operator, (2) having the program read 
them into positions from data statements contained in 
the program, and the most fancy, (3) having the 
program read them in from a source outside the 
computer such as from tape or diskette. Since this is a 
Beginners Corner, and most of the readers have 
cassette systems, we'll confine our discussions to that 
system. Storing data on tape is a fairly simple affair, 
slow to store and to read back, but simple. Writing 
data on and reading data from a disk is very, very fast. 
We are comparing disk seconds to cassette minutes. 
However, storing data on disk is a bit more complex — 
actually, several bits more complex (pun intended). 
There are two methods for writing data on disk, one is 
called writing SEQUENTIAL files and the other is 
writing RANDOM files. | mention those two methods, 
not to launch a discussion into them but to familarize 
you with the words so you will have some smattering 
of what they represent when you run across them. 

If you have saved the final version of last month’s 
program, let’s load it back into the computer. That 
program asked the operator to input a number. The 
input number was then stored in an array location 
which could be seen on the screen. We'll now modify 
the program to load numbers into the array from a data 
statement within the program. 


* Change line 10’s REM statement to: 
10 REM INPUT PROGRAM FOR AUGUST COMPUTRONICS 


* Replace lines 20, 30 and 80 with these lines: 
20 READ A: P(B,C)=1A 


30 CLS ; B=B+l] : IF B>2 THEN B=0 : C=C+l 
80 FOR X=1 TO 300 : NEXT X : IF Co2 GOTO 20 


* Add data line #100 (you may use any numbers after 
the DATA statement as long as they are separated by 
commas) 


100 DATA 3,7,9,1,2,8 
Your finished program needs to look like this: 
10 CLS:DIM P(2,1):REM - INPUT PROGRAM FOR AUGUST COMPUTRONICS 


20 READ A : P(B,C)=A 
30 CLS:B=B+l : IF B>2 THEN B=0 : C=C+1 


4oPRINT’ 0 1 2" 

SQ PRINT’ = = = 

60 PRINT"O ) ";P(0,0);" — ";P(1,0);" — ";P(2,0) 

70 PRINT! ) ";P(0,1);" ";PCL,1);" "5 P(2,1): PRINT 


80 FOR X=1T0300:NEXTX:IF C2 GOTO 20 
90 PRINT"ALL 6 POSITIONS HAVE BEEN FILLED - END OF PROGRAM" 
100 DATA 3,7,9,1,2,8 


Now RUN it and have some fun watching the program 
load the six array positions ! 

Let’s review what's happening. Since | prefer 
working with the low order (A,B,C, etc.) alphabetical 
variables, because they feel friendly, | have used the 
numeric variables A and B once again, but differently in 
this program than in the last version. | mention that to 
avoid any confusion as to their purpose in this 
program. 

Line 20 READs the first DATA statement it 
encounters, line 100. Since The READ statement only 
instructs it to read one numeric variable, “A”, it reads 
one data entry, the number 3. The program then goes 
to line 30 where the variables A or B are increased in 
value by “1” each time the program passes through 
line 30. This allows the variables A and B, representing 
array storage location elements, to be changed and 
therefore accomodate new entries. The program then 
goes on to print an array chart on your video using lines 
30 to 70. When it gets to line 80 it encounters a delay 
loop. This FOR X = 1 TO 300: NEXT X, simply slows 
down the program so you can watch the numbers 
being placed into various array locations on your 
video. If you like, try changing the 300 to something 
else. Lower numbers will quicken the loading, higher 
numbers will slow the loading. After this little delay 
routine, we come to the test, still on line 80, to see 
whether the “C” variable has gotten to be 2 yet, if it 
hasn’t the program goes back to line 20 where it 
READs the next entry in the data statement. When it 
reads the second entry on line 100, which would be a 
“7", the numeric variable “A” will then equal 7. The 
value of “A” in READ A, line 20, will be different each 
time as the program READs the entries in line 100. 

Want to take a little detour to illustrate a new 
statement we haven't covered? It is called RESTORE, 
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CALENDAR 


George Kwascha 


Here is a short program designed to print a calendar. 
The program was run on a Model | 16K with cassette 
and a Radio Shack Line Printer II. 

The program requires two inputs: the year and the 
first day of that year. The program first prompts for the 
year of the calendar. Enter four digits. The program 
then prompts for the first day of that year, which must 
be entered as a number from 1 to 7. The week is 
numbered starting from Sunday as 1 through Saturday 
as 7. For example, to print a calendar for 1981, enter 
1981 for the year and 5 for the first day, since January 1, 
1981 falls on a Thursday. 

You also get a choice of double-sized (40 characters 
per line) or the standard 80 characters per line for 
printing the days in the month. And, of course, the 
program checks for leap years. 


19 CLEAR 280 : CLS : PRINT STRING$(64 , 191) ; STRINGS (64,143) 
20 PRINT @ 144,"* * * CALENDAR PROGRAM * * *" 

3f PRINT STRINGS (64, 188) ; STRINGS (64,191) 

59 DEFINT I,J,K,L: DEFSTR M: DEFDBL D: DIM 0M(13),M(12),L(5p) 
19) REM READ NUMBER OF DAYS IN EACH MONTH 

118 FOR I=@ TO 12 : READ DM(I) : NEXT 

120 DATA 0,31,28,31, 30,31, 38,31, 31, 30,31, 36,31 

149 REM READ NAMES OF EACH MONTH 

159 FOR I=] TO 12 : READ M(I) : NEXT 

16@ DATA JANUARY, FEBRUARY, MARCH, APRIL, MAY, JUNE, JULY, AUGUST, 
SEPTEMBER, OCTOBER, NOVEMBER , DECEMBER 

209 REM USER INPUTS YEAR AND FIRST DAY OF YEAR 

216 INPUT "ENTER YEAR OF CALENDAR (YYYY)";Y 

220 PRINT "ENTER FIRST DAY OF YEAR...." 

230 PRINT "TYPE 1-SUNDAY TYPE 4-WEDNESDAY TYPE 6-FRIDAY" 
249 PRINT "TYPE 2-MONDAY TYPE 5-THURSDAY TYPE 7-SATURDAY" 
259 PRINT "TYPE 3-TUESDAY": INPUTOW 

260 REM CHECK FOR LEAP YEAR 

270 A=Y : A=A/4 : IF A=INT(A) THEN 0M(2)=29 

299 INPUT "DO YOU WISH DOUBLE-SIZE PRINT? (Y-YES OR N-NO)";X$ 
30@ REM CALCULATE FIRST DAY OF MONTH AND PRINT MONTH 

316 FOR K=1 TO 12 

320 DW=DW+DM(K-1) : DW=DW/7 : DW=DW-INT(DW) : DW=DW*7 

349 IF DW=f THEN DW=7 

345 FOR TI=1 10 3; LPRINT " " : NEXT 

358 LPRINT TAB((6Q-(LEN(M(K))+6))/2) CHR$(27) ;CHRS(14) ;M(K); 
u May, : LPRINT now 

354 IF X$ <> "¥" LPRINT TAB(11) "SUN"; TAB(19) “MON"; 

TAB (27)"TUE"; TAB(35) "WED"; TAB(43) "THU"; TAB(51) "FRI"; 
TAB(59) "SAT" : GOTO 36p 

356 LPRINT TAB(8) CHR$(27);CHR$(14);"SUN MON TUE WED THU 
FRI SAT" 

368 GOSUB 599 

389 NEXT 

399 END 

508 REM SUBROUTINE TO PRINT DAYS IN EACH MONTH 

519 OM=DM(K) : J=Q : FOR II=1 TO 5@ : L(II)=@ : NEXT 

526 IF DW >== 1 AND DW <= 7 AND DM >= 28 AND DM < 31 THEN 
558 ELSE 790 

558 FOR I=DW TO DW+(DM-1) 

560 L(L)=J+1 : JeJ+l 


28 ‘(COMMPUTROMNICS: 


570 NEXT 

698 FOR I=? TO 5 

619 LPRINT """ : LPRINT TAB(6); 

628 FOR J=1 T0 7 

638 L=L(7*I+J) 

649 IF L > @ THEN 645 ELSE 655 

645 IF X$ = "Y¥" GOSUB 809 : GOTO 689 

650 LPRINT USING " ##";L; : GOTO 689 

655 IF X$ = "Y" GOSUB 859 : GOTO 689 

66 LPRINT TAB(6) " ae 

682 NEXT J 

698 NEXT I 

699 RETURN 

79 PRINT "ERROR IN INPUT DATA" : RETURN 

809 REM SUBROUTINES FOR DOUBLE-SIZE OPTION 

818 LPRINT CHR$(27);CHR$(14); : LPRINT USING " ##":L: : RETURN 
850 LPRINT CHR$(27) ;CHR$(14) ;" ") > RETURN 

George Kwascha 

8007 Mahogany Drive 

Charlotte, NC 28212 r 
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and it is part of the DATA and READ group of 
statements. When a RUNning program encounters a 
RESTORE statement it sends the program into an 
electronic state of amnesia. It forgets that it has read 
ANY data statements during the RUN. Try adding this 
line to the program: 


25 RESTORE 


After the progrm goes through line 20 and the READ 
statement assigns the first data entry value (3) to the 
numeric variable A, the program encounters a RES- 
TORE command which causes it to forget it read 
anything. It doesn’t forget the value it assigned to A, it 
merely forgets that it had any instructions to READ 
something. With line 25 added, when the program 
goes through its cycle, it keeps reREADing the first 
entry on the data statment which, of course, is the 
number 3! 

Well, we have covered the second method for 
loading elementary array positions. If you like, save the 
above program and we will modify it in next month's 
column which will cover loading array positions from 
an external storage medium, cassette tape. | will also 
attempt to provide an explanation of STRING arrays 
which are capable of holding alphabetical characters 
and words. 

Have a good, safe and healthy August! 


A. Douglas Werbeck 
POB 787 
Ruskin, FL 33570 
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Robert M. Richardson 
CHAPTER 5 
BAUDOT RADIO TELETYPE TRANSMIT PROGRAM 
60, 66, 75, AND 100 WORDS PER MINUTE 


INTRODUCTION 


Teletype, as we know it today (with minor modifica- 
tions) has been around almost as long as the airplane. 
Almost as long as trans-Atlantic radio communication, 
and almost as long as the massed-produced auto- 
mobile. 

Teletype™, (tm of the Teletype Corporation), was 
the natural outgrowth/evolution of Morse code 
telegraphic communications which Samuel Morse 
began work on in the mid 1830's, demonstrated to the 
U.S. Congress before the Civil War, and was further 
developed into multiplex telegraphy by General (then 
Captain) Squires of the U.S. Army Signal Corps. in 
1901. What an amazing coincidence that all these 
technological advances and innovations came to pass 
within a very few years of each other; i.e., trans-Atlantic 
radio, the airplane, teletype, and the Henry Ford mass- 
produced automobile. 

Charles Krum was the inventor of the teletype 
machine, circa 1905 - 1906. His financial backing was 
provided by Jay Morton (of Morton Salt). The company 
and its product were not too suprisingly first called the 
“Morkrum” machine. Both World War | and the 
adoption of teletype by the Associated Press in 1915 
brought teletype into worldwide usage over 65 years 
ago. See Volume 3, Chapter 10 for additional history. 
, After World War II, literally tens of thousands of 
teletype machines were made available to radio 
amateurs for virtually nothing through MARS, the 
Military Amateur Radio Service. Most of these 
machines are still in use today. All of these machines 
utilize the mostly standardized Baudot/Murray code, 
named after the pioneers who developed it. In the U.S. 
it is usually referred to as the Baudot code, and in 
Europe, the Murray code. There are only a few 
variations between the U.S. and international CCIT 
No. 2 code, such as “British pound” sign, etc. More 
about these minor variations later. 

In 1980 the Federal Communications Commission 
awoke from a long nap and authorized the use of the 
ASCII code on the amateur bands. We will cover ASCII 
in Chapters 8, 9, & 10. 


THE BAUDOT.DATA CODE AND SPEEDS 
USED BY RADIO AMATEURS 


The following summary covers generally accepted 
practices used by the majority of amateur radio stations 
using Baudot code radio teletype today. As 
with virtually all rules there are exceptions, though 
seldom heard on the amateur radio bands. 

The Baudot code consists of a 5 bit word plus a start 
bit and stop bit. With a 5 bit word there are obviously 
only 32 different combinations possible. As such, how 
does Baudot accomodate 26 characters of the 
alphabet, 10 numbers, and punctuation, Gridley? 

NOT VERY EASILY. 

Come on, Gridley. Put on your thinking cap. 

| LOST IT. 

Very well, Gridley. Think about how your manual 
typewriter works to select upper or lower case 
characters. You quite simply press the SHIFT key to 
select a # sign or release the shift key to print the 
numeral 3. Baudot teletype machines work in much 
the same way. In this instance we will call lower case, 
LETTERS and upper case, FIGURES. Baudot uses 
11011 binary = 27 decimal to press the shift key and 
put it into the FIGURES mode and 11111 binary = 31 
decimal to put it into the LETTERS mode. The following 
table illustrates the Baudot code decimal no., binary 
no., LETTERS and FIGURES: 


DECIMAL BINARY LETTERS FIGURES 
NUMBER 54321 
i) OPODD nothing nothing 
1 90001 E 3 
2 90010 line feed line feed 
3 99911 A (dash) 
4 90100 space space 
5 90191 ) bell 
6 PP11p I 8 
7 P@111 aU 7 
8 91000 carreturn carreturn 
9 61901 D $ 
1p P1plp R 4 
1} 91911 J * (apostrophe) 
12 61100 N , (comma) 
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13 61161 F § 

14 91119 C $ 

15 pilll K ( 

16 19909 T 5 

17 19991 Z " 

18 1991p L ) 

19 19811 W 2 

28 19198 H # 

21 19191 Y 6 

22 19119 P 9 

23 19111 Q 1 

24 11999 0 9 

25 11901 B ? 

26 11p19 G 4 

27 11911 figures figures 
28 11198 M . (period) 
29 11191 X / 

30 11119 V ; 

31 11111 letters letters 


The significant differences between the U.S. and 
CCITT No. 2 standard are in the FIGURES column and 
are: bell = apostrophe, $ = WRU (who are you), 
apostrophe = bell, quote = + sign, and # = British 
pound sign, respectively. Yet another option is that the 
# sign is occasionally used to TURN OFF the teletype 
machines motor when utilized with unattended 
operation. 


STANDARD BAUDOT TIMING FOR 
60, 66, 75, AND 100 SPEEDS 


Most electro-mechanical teletype machines’ speed 
may be changed by installing the appropriate gears 
within the mechanism. Fortunately, all we need do is 
press SHIFT “S” when in the TRANSMIT MODE and 
enter the speed desired. Also, in the next Chapter we 
will include a separate speed change for RECEIVE 
MODE, if desired, so that you may transmit at one 
speed while receiving at another. The chart below 
illustrates start bit lengths, data bit lengths, stop bit 
lengths, Baud rate, and words per minute for standard 
speeds. 


SPEED START BIT DATA BIT STOP BIT BAUD RATE WPM 
(ms) (ms) (ms) 

60 22.008 22.02 31.90 45.45 61.3 

66 20.08 20.00 30.90 59.0 66.7 

75 17.57 17.57 25.08 56.92 76.7 

190 13.47 13,47 19.18 74.28 190.8 


Even Gridley will note that the start and data bit 
lengths are identical, plus the stop bits = approximately 
1 1/2 times data bit length. It is important to 
understand that the stop bit lengths are the MINIMUM 
amount of time that MUST elapse before another 
character's start bit may be transmitted. The MAXIMUM 
amount of time for a stop bit may be ANY length you 
wish. 
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BAUDOT CODE PROTOCOLS - 
FREQUENCY SHIFT KEYING (FSK) 


The start bit is customarily called a SPACE and 
usually = to an audio frequency of 2295 Hertz. The 
stop bit is usually a MARK = to an audio frequency of 
2125 Hertz. Sometimes one will find a station 
transmitting the MARKs and SPACEs with reversed 
audio frequencies which = an INVERTED signal. If one 
looks at the Baudot code for the letter “D” which = 
01001 in binary = 9 decimal it would be transmitted as 
follows: start bit = 2295 Hz, bit 1 = 1 = 2125 Hz, bit 2 
=0 = 2295 Hz, bit 3 = 0 = 2295 Hz, bit4 = 1 = 2125 
Hz, bit 5 = 0 = 2295 Hz, and the stop bit = 2125 Hz. 
Remember, the least significant bit is transmitted first, 
and the most significant bit transmitted last (just prior 
to the stop bit). 

Radio teletype may be transmitted by AM (amplitude 
modulation) = AFSK on the VHF bands to minimize 
frequency drift, but on the shortwave bands, 160 
through 10 meters, frequency shift keying (FSK) with 
170 cycles shift is customary. FSK may be generated by 
feeding the keyed audio tones directly into the 
microphone input of a standard ham single sideband 
transmitter. 

Detailed circuits for generating the audio FSK tones 
for your amateur transmitter are beyond the purview 
of this book. We suggest your obtain a copy of: 
“Specialized Communications Techniques” @ $5 
postpaid from the ARRL, 225 Main Street, Newington, 
Connecticut 06111, to dig deeper. 

Our favorite audio frequency shift generator is 

crystal controlled using a 2.295 MHz crystal and a 
2.125 MHz crystal. Both of these crystal oscillators are 
then divided by 1000 to obtain EXACTLY 2295 and 
2125 cycles audio output for space and mark 
frequencies. The kit of parts‘and printed circuit board 
for this “AFSK Generatér’is surprisingly inexpensive 
and is available for approximately $25 postpaid from: 
Circuit Board Specialists, PO Box 969, Pueblo, 
Colorado 81002. Crystals must be ordered separately 
from JAN or your favorite supplier. 
For those without the time to build their own TU 
(terminal unit) for either transmitting or receiving FSK 
RTTY (radio teletype) we recommend the new Flesher 
“TU-170" @ $249 factory assembled and tested from: 
Flesher Corporation, PO Box 976, Topeka, Kansas 
66607. It is not the cheapest NOR the most expensive 
RTTY terminal unit on the market, but in our opinion it 
is the most cost-effective. It has standard TTL logic 
inputs and outputs and works “fine business” with 
either the Telesis VAR-80 or Interfacer 2 and the TRS- 
80 Models | and III. This is the combination, TU-170 
and VAR/80, that we will use in this Chapter and 
Chapters 6 to 10. 


The VAR/80 was thoroughly covered in Volume 3’s 
Chapter 5. For receive, the-TU-170 is connected to 
your receivers speaker output. Its DEMOD output 
plugs directly into the VAR/80’s INPUT #7. For 
transmit, the VAR/80’s OUTPUT #2 is connected to 
the TU-170’ AFSK KEYING terminal and the TU-170's 
transmitter output pin #2 connected to your SSB 
transmitter’s microphone input. That is all there is to it. 


MODEL III COMPATABILITY - 
PROGRAM AND EXTERNAL I/O BUS 


The following programs in Chapters 5 through 10 
are completely compatible with BOTH the Model | 
and I{l TRS-80 and have been exhaustively tested with 
both models, Model III users should read APPENDIX 
2's pages 1 through 7 IF they wish to build their own 
adaptor for the VAR/80 or Interfacer 2, although by the 
time this Volume is published there should be a 
number of commercially manufactured Model | 
accessory to Model I!| adaptors available. A single TTL 
chip, some 50 conductor cable, and 2 connectors are 
all that is required. 

We suggest that all timing constants including: TIME 
1,2,3,5,6,7 and SPEED2 be increased 15 percent in 
value to accomodate the Model III's slightly higher 
clock frequency, even though the programs as they 
stand will work with most RTTY machines unmodified. 
Model I users should change the JP 1A19H, return to 
BASIC, to JP 072H to avoid an occasional error flag IF 
this function is used. 


SOFTWARE VS. HARDWARE UART - 
COST AND GRIEF SAVINGS 


The programs in Chapters 5 through 10 ALL 
generate their own parallel to serial, and serial to 
parallel data conversions. As such, it is unneccessary to 
purchase the $99 Radio Shack RS-232C adaptor for 
either the Model | or Model III TRS-80. For Model | 
users, this is indeed a blessing as its RS-232C unit is 
completely useless UNLESS hardwired (soldered) into 
the circuit. See “80 Microcomputing” May ’81, pages 
202-203. 


FUNDAMENTAL PROGRAM 
LOGIC AND FLOW 


An initial casual glance at the program may be 
overwhelming. 

1 AM BOTH CONFUSED AND TOTALLY LOST! 
YOU GOTTA BE KIDDING! : 

Gridley, do not let first impressions overwhelm you. 


Really, the program is quite simple if we work through 
the fundamental logic and overlook all the little salient 
niceties such as timing constants, automatic line feeds, 
carriage returns, prepared messages, etc. Let’s have at 
it. 

Using these ground rules, the program begins at line 
3640 where the keyboard awaits your command. Let's 
assume you wish to transmit the letter “B” at 60 WPM 
equivalent speed in Baudot, by pressing “B” on the 
keyboard. The program falls through to line 3900 
where “B” is displayed on video, and then JumPs off to 
CoNVERT in line 1120. “B” = ASCII 66, so lines 1320 
and 1330 send it off to B1 in line 2450 where the D 
register is assigned the decimal value of 25. Now, 
decimal 25 = 11001 binary is the Baudot value for the 
letter B as shown on the chart at the beginning of this 
Chapter. Line 2460 sends the program off to SEND1 in 
line 2950 where the Baudot START bit is then 
transmitted in line 2960. It is followed by the LEAST 
SIGNIFICANT bit, a 1, which is tranmitted in line 2980 
and then the D register rotated 1 bit to the right in line 
3050. Each bit of 11001 binary = B is transmitted this 
way till ALL 5 bits have been transmitted and line 3040 
sends the program off to FINIS1 in line 3550 that 
sends the STOP bit and falls through to line 3640, 
which has us back to the keyboard again awaiting your 
input. That is the FUNDAMENTAL program logic and 
flow. 

All the rest of the program is simply icing on the 
cake. Since we will be working stations with electro- 
mechanical teletype machines with 72 characters per 
line, the program outputs a line feed and carriage 
return every 72 characters and allows about 3 
characters length time delay for the carriage to 
mechanically return. Lines 4490 through 6810 are the 
prepared message segment. Please change them to 
reflect your own CALL LETTERS and messages desired. 
INPUT1 in line 7000 is intentionally placed at the END 
of the program. This is the MEM location where YOU 
input from the keyboard any prepared message 
desired is located. It may be as LONG a message as 
you have memory available. Now, let’s take a look at 
the program before going into the operating aspects. 


99198 ; - W4UCH BAUDOT TELETYPE TRANSMIT PROGRAM - 

A119 ; 

09120 ; 60, 66, 75, AND 109 WORDS PER MINUTE EQUIVALENT SPEED 
19138 ; 

98149 ; COPYRIGHT 1981 (C) OBJECT = BAUDOT] & SOURCE = BAUDOTZ 


poise ; 

pP16— WAUCH EQU 28900 :=6D69H FOR YOU PURISTS 
99179 ORG WaUCH sLET'S START HERE 

99189 EX AF AF! ; SWAP ALTERNATE. REGISTERS 
90199 EXX ;SWAP ALTERNATE REGISTERS 
99208 PUSH IX -SAVE IN STACK 

90219 PUSH ‘IY sSAVE IN STACK 

229 DI :DISABLE INTERRUPTS 
99239 CALL CLS COMPATABILITY MOD 1 & 3 
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9249 Go sP G02 :G0TO G02 ppssp SEVENS LD HL, 1209 :1299 = 75 SPEED 


99258 G01 CALL CARRET ;VIDEO CARRIAGE RETURN 0860 wD (SPEED2) , HL iSTASH IT AWAY 

90268 LD Ap ZERO OUT CHARACTERS - 90878 LD HL 1814 :STOP BIT TIME DELAY 
90270 LD (SIGN3) ,A ;PER LINE COUNTER 9880 LD (TIMES) , HL iSTASH IT AWAY 

90280 LD HL MESS ;SPEED MESSAGE p89p LO HL 1222 iRECEIVE BIT LENGTH 
99299 CALL © 28A7H ‘DISPLAY MESSAGE ROUTINE 9900 LD (TIME1) , HL :STASH IT AWAY 

90300 CALL —1BB3H :KYBD VIDEO INPUT ROUTINE 00910 LD HL,611 31/2 RECEIVE BIT LENGTH 
99319 RST 1pH “SCAN $ SET 'C' FLAG 99928 LD (TIME2) , HL ‘STASH IT AWAY 

90320 CALL = BEGCH ‘ASCII $ TO ACCUM RET MIN 0930 LD HL 1322 ;RECEIVE BIT LENGTH +109 
99339 CALL — @A7FH ‘CONVERT ACCUM TO INTEGER 9994p LD (TIMES) , HL iSTASH IT AWAY 

99340 LD (SPEED1) , HL sSTASH IT AWAY IN SPEEDI p95p RET jRETURN WHENCE U CAME +1 
99350 CALL = SPD ‘CALCULATE EQUIV SPEEDS BP96P ONEIAO LD HL ,927 3927 = 198 SPEED 

PP36P G02 CALL — CARRET :VIDEO CARRIAGE RETURN pp97p LD (SPEED2) , HL jSTASH IT AWAY 

99370 LD HL, MESS] ; TRANSMIT MODE! p98p LD HL 1399 :STOP BIT TIME DELAY 
9938p CALL  28A7H ;DISPLAY MESSAGE ROUTINE 9990 LD (TIMES) , HL iSTASH IT AWAY 

99399 CALL SPOIL EQUIV. WORDS PER MINUTE p1ppp Mh) HL 936 ;RECEIVE BIT LENGTH 
9p4pp CALL —- CARRET CARRIAGE RETURN #1619 LD (TIME) ,HL iSTASH IT AWAY 

9041p CALL —AUTO1 :LINFEED & CARRIAGE RETN #1928 LD HL 468 31/2 RECEIVE BIT LENGTH 
90429 LD A, EH ‘TURN ON CURSOR 9193p LD (TIME2) , HL ;STASH IT AWAY 

99430 CALL «= 33H :D0 IT ON VIDEO p1pap LD HL , 1936 RECEIVE BIT LENGTH +199 
pp4ag Jp KYBD2 ;GOTO KYBD FOR INSTRUCT. P1959 LD (TIME3) , HL iSTASH ET AWAY 

pp450 SPEED] DEFW 69 360, 66, 75, OR 186 WPM p69 RET SRETURN WHENCE U CAME +] 
PP46P SPEED2 DEFW 1515 EQUIV. DATA BIT LENGTH 91978 SPD = LD HL, (SPEED1) sEQUIV. WORDS PER MINUTE 
99470 MESS DEFM = ‘INPUT SPEED 69, 66, 75, 199! 9198p CALL  PASAH ;MOVE HL TO ACCUM 

gasp DEFB Op : MESSAGE. DELIMITER 1998 CALL PF BDH CONV. ACCUM TO STRING 
90498 MESS1 DEFM ‘TRANSMIT MODE - WPM =' 61109 CALL =. 28A7H DISPLAY STRING ROUTINE 
99500 DEFB Op ;MESSAGE DELIMITER 1118 RET ;RETURN WHENCE U CAME +1 
90519 SPD LD HL, (SPEED1) SPEED INTEGER TO HL P1126 CNVERT PUSH = AF iSAVE AF IN STACK 

90529 LD A,L ;LOW BYTE TO 'A' 9113p LD A, (SIGN3) CHARS. PER LINE COUNTER 
90530 cP 6p :6 SPEED ? f1l4p INC A +1 TO 'A! 

pp54g JP Z, SIXTY IF SO, GOTO SIXTY 91159 LD (SIGN3) ,A ;STASH IT AWAY IN NEM 
99550 cP 66 :66 SPEED ? p1169 cP 72 ;SUBTRACT 72 & SET 'Z' 
pn56p JP Z, SIXT6 <IF $0, GOTO SIXTY SIX 91178 CALL = Z, AUTOL yAUTO LNFEED & CARRETN 
99578 cP 5 :75 SPEED ? 91180 POP AF ;RESTORE 'A' FROM STACK 
9958p JP Z, SEVENS IF $0, GOTO SEVENTY FIVE 91198 cp 32 ;IS IT A SPACE 2 

90599 cP 199 ;199 SPEED 91299 JP Z, SPACE1 IF SO, GOTO SPACE1 
ag6pe Jp Z, ONEL99 ;IF SO, GOTO ONE HUNDRED #1219 PUSH = AF ;SAVE 'A' IN THE STACK 
99618 POP HL ‘ADJUST STACK 91228 LD A, (SIGNI) ;LTRS/FIGS SIGNPOST 
629 Jp 601 IF ERROR, START OVER 91238 cP :) +O = LTRS & 1 = FIGS 
90630 SIXTY LD HL 1514 :1514 = 6 SPEED 91249 JP NZ, FIGS2 ;IF NOT, GOTO FIGS 2 
9pc4p LD (SPEED2) , HL sSTASH IT AWAY 91256 POP AF ;RESTORE 'A' FROM STACK 
99659 LD HL ,2271 ;STOP BIT TIME DELAY 1260 cp 65 ;-65 FM 'A' SET SIGN FLAG 
go6ep LD (TIMES) , HL :STASH IT AWAY 91279 PUSH AF ;STASH AF IN THE STACK 
99672 LD HL, 1539 ;RECEIVE BIT LENGTH 91288 dP M, FIGS1 ;GOTO FIGS IF < ASCII 65 
psp LO (TIME1) , HL sSTASH IT AWAY 1298 POPs AF RESTORE AF FROM STACK 
peop LO HL 765 71/2 RECEIVE BIT LENGTH 91309 cP 65 

go7p0 LD (TIME2) , HL sSTASH IT AWAY 91319 dP Z,Al IF $0, GOTO 'A' 

99719 LD HL, 1639 ;RECEIVE BIT LENGTH +199 91328 cP 66 

90720 LD (TIME3) , HL ;STASH IT AWAY 1330 JP Z,B1 IF SO, GOTO 'B' 

0739 RET RETURN WHENCE U CAME +1 91349 cP 67 

90748 SIXT6 LD HL 1377 :1377 = 66 SPEED B135p JP z,C1 ;IF SO GOTO ‘Cc! 

9275p LD (SPEED2) , HL :STASH IT AWAY 9136p cP 68 

90769 LD HL , 2066 STOP BIT TIME DELAY £1378 JP Z,01 IF SO, GOTO 'D' 

90779 LD (TIMES) , HL ;STASH IT AWAY 91389 cP 69 

9078p LD HL , 1390 «RECEIVE BIT LENGTH 91399 dP Z,E1 IF SO, GOTO 'E' 

99799 LD (TIME1) , HL iSTASH IT AWAY 1490 cP 79 

paseo LD HL 695 31/2 RECEIVE BIT LENGTH 1419 JP Z,Fi ;IF $0, GOTO 'F! 

99819 LD (TIME2) , HL :STASH IT AWAY 1429 cP 71 

99828 LD HL, 795 ;RECEIVE BIT LENGTH +199 9143p dp Z,61 :IF SO, GOTO 'G' 

90830 LD (TIME3) , HL ;STASH IT AWAY 1449 cP 72 

9849 RET VRETURN WHENCE U CAME +1 91459 JP Z,H1 IF SO, GOTO 'H' 
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6146p cP 73 9207 cP 45 ; > AND 'A' 


pl47p JP Z,U SIF $0, GOTO 'I' 92089 JP Z,Al :IF SO, GOTO Al 
9148p cP 74 9290 cP 46 ; . AND 'M! 
91499 JP Z,J1 sIF $0, GOTO 'J' 02108 JP 2,41 ;IF $0, GOTO M1 
91500 cP 75 p2119 cP a7 ; 7 AND 'X! 
9151p JP Z,Kl sIF $0, GOTO 'K' 0212p JP Z,X1 ;IF $0, GOTO XI 
91520 cP 76 92130 cP 48 ; ZERO AND 'P! 
9153p JP Z,L1 ;IF $0, GOTO 'L' 92149 JP 7,P1 sIF $0, GOTO Pl 
91549 cP 17 92158 cP 49 - 1 AND 'Q! 
9155p ap 7,41 SIF $0, GOTO 'M’ 92169 Jp Z,Q1 sIF $0, GOTO Ql 
91569 cP 78 92178 cP 5p ; 2 AND 'W! 
91579 JP Z,N1 sIF $0, GOTO 'N' 92180 Jp Z,Wl _;IF $0, GOTO Wl 
91580 cP 79 92199 cP 51 ; 3 AND 'E! 
91599 JP 7,01 ;IF $0, GOTO '0' 92206 Jp Z,E1 sIF $0, GOTO El 
91698 cP 8p 92218 cP 52 ; 4 AND 'R! 
0161p Jp Z,P1 sIF $0, GOTO ‘P! 92228 JP Z,R1 ;IF $0, GOTO RI 
91629 cP 81 92239 cP 53 ; 5 AND 'T! 
91639 JP 2,01 -IF $0, GOTO 'Q' 92240 JP 2,11 :IF $0, GOTO Tl 
9164p cP 82 92250 cP 54 ; 6 AND 'Y' 
91650 JP Z,R1 ;IF $0, GOTO 'R' 92260 JP z,Y1 ;IF $0, GOTO YI 
#1669 cP 83 92270 cP 55 5 7 AND 'U! 
9167p JP Z,$1 sIF $0, GOTO 's' 92280 JP Z,Ul ;IF $0, GOTO Ul 
91686 cP 84 92298 cP 56 ; 8 AND ‘I! 
9169p aP z,Tl sIF $0, GOTO 'T’ 92300 JP 7,11 ;IF $0, GOTO Il 
91700 cP 85 92319 cP 57 ; 9 AND 'O' (OH) 
gl71p JP Z,U1 SIF $0, GOTO ‘U' 92326 JP 7,01 ;IF $0, GOTO 01 
p172p cP 86 9233p cP 58 ; : AND 'C! 
91730 JP Z,V1 sIF $0, GOTO 'v' 0234p Jp Z,C1 sIF $0, GOTO Cl 
6174p cP 87 92359 cP 59 ; | AND 'V! 
91759 JP Z,W1 -IF SO, GOTO 'W' 92360 JP 7,V1 :IF $0, GOTO V1 
9176p cP 88 92379 cP 63 ; 7 AND 'B! 
91779 JP Z,x1 sIF SO, GOTO *X' 92380 JP 7,81 sIF $0, GOTO Bl 
9178p cP 89 92399 ap SPACE1 

91799 JP z,Y1 SIF $0, GOTO 'Y' 02490 ; 

6189 cP 99 92419 ;COMMENTS ILLUSTRATE BAUDOT BINARY NUMBER & EQUIVALENTS 
9181p JP 2.2) :IF $0, GOTO 'Z' 62420 ; 

91829 JP SPACEL 92439 Al LD D,3 ; B11 = A AND - 
91839 FIGS! LO wl :P = LTRS & 1 = FIGS 9244p JP SEND1 ;SEND IT 

g1g4g up (SIGNI) ,A ;SET SIGNPOST TO FIGS 92459 B1 Lo D,25 ; 11991 = B AND ? 
91850 FIGS2 POP AF ;RESTORE 'A' FRON STACK 9246p JP SEND1 ;SEND IT 

1860 ; 92470 Cl LD D,14 ; P1l1p = C AND : 
1878 ;COMMENTS ILLUSTRATE EQUAL FIGS AND LTRS IN BAUDOT CODE 92489 Jp SENDL ;SEND IT 

9188p ; 92499 01 LD D,9 ; 91981 = D AND $ 
91896 cP 33 ; ! AND 'F# 92500 JP SEND1 sSEND IT 

9199p ap Z,F1 sIF $0, GOTO Fl 9251p El LD D,1 ; 90001 = E AND 3 
91919 cp 34 - © AND 'Z' IN BAUDOT 92520 JP SEND1 sSEND IT 

91929 Jp 2,21 :IF $0, GOTO Z1 92539 Fl LD D,13 ; Ji181 = F AND ! 
91930 cP 35 ; HAND 'H! 92540 JP SEND1 :SEND IT 

g19ap JP Z,H1 -IF $0, GOTO HI 92550 G1 1) 0,26 ; 1191 = 6 AND & 
9195p cP 36 ; $ AND 'D! 02568 JP SEND1 “SEND IT 

91960 JP Z,D1 sIF $0 GOTO D1 92570 Hi Lb 0,20 ; 19199 = H AND # 
91978 cP 38 ; & AND 'G! 92580 JP SEND1 :SEND IT 

9198p JP z,61 :IF $0, GOTO Gl 92590 Il LD D,6 ; BP119 = I AND 8 
91999 cP 39 ; | AND "J! 92600 Jp SEND1 <SEND IT 

2000 JP 2,J1 SIF $0, GOTO 31 9261 Jl Lo D,11 ; P1p11 = 2 AND ' 
92918 cP 4p > (AND 'K' 92620 JP SEND1 SSEND IT 

92920 JP Z,K1 SIF $0, GOTO KI 92639 K1 LD D,15 ; Plill = K AND ( 
02030 cP 4l ;) AND 'L! 02649 JP SEND1 sSEND IT 

02048 JP Z,U1 ;IF $0, GOTO LI 92650 LI Lo D,18 ; 19819 = L AND ) 
92050 cP 44 ; , AND 'N! 92669 JP SEND1 «SEND IT 

02060 JP Z,N1 sIF SO, GOTO NI 92679 Hl LD 0,28 ; 11169 = 4 AND . 
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9268p 
62699 NI 
92796 
62719 01 
92729 
92739 Pi 
92749 
92759 QI 
92769 
62779 RI 
92789 
92799 SI 
92809 
92819 Tl 
92829 
62838 U1 
92849 
92859 V1 
02869 
02879 Wi 
9288) 
92899 X1 
92990 
92919 Y1 
62929 
92938 Z1 
92949 
92959 SENDI 
92960 
92979 SEND2 
92989 
92999 
$3000 
93019 
$3920 
93030 
93049 
93059 
03069 
93079 SPACE 
9308p 
93090 
93100 
p31i9 
93129 MARK 
03130 
93148 
03150 
0316p 
93178 LNFEED 
93189 
93199 
93200 
93219 
93229 
93239 
3248 CARETN 
93259 
93260 
93278 
93280 


34 


B,D 

NZ, MARK 
8,0 

Z, SPACE 
L 

A,5 

L 
Z,FINISI 
D 

SEND2 
A,4 
(8) ,A 
BC, (SPEED2) 
6pH 


Ap 

(9) ,A 

BC, (SPEED2) 
6H 


;SEND IT 

; 61108 = N AND , 

; SEND IT 

> 11900 = 0 AND 9 

SEND IT 

+ 19119 = P AND ZERO 
;SEND IT 

+ 1flll = Q AND 1 

:SEND IT 

; 91918 = R AND 4 

SEND IT 

; 96191 = S AND BELL 
;SEND IT 

; 19968 = T AND 5 

;SEND IT 

; OP111 = U AND 7 

;SEND IT 

+ 11116 = V AND ; 

;SEND IT 

; 19911 = W AND 2 

;SEND IT 

; 11191 = X AND / 

:SEND IT 

; 19101 = Y AND 6 

SEND IT 

; 19991 = Z AND " 

;SEND IT 

;ZERO OUT 'L' COUNTER 
;SEND START BIT 

; TEST BIT ZERO OF 'L' 
IF SO, SEND MARK TONE 
TEST BIT ZERO OF 'L' 
;ELSE SEND SPACE TONE 
s+1 TO BIT COUNTER 

;5 BITS PER CHARACTER 
;SUBTRACT 'L' FROM ‘A’ 
:GOTO FINIS 'IF DONE’ 
;ROTATE D RIGHT CIRCULAR 
:GOTO SEND NEXT BIT 
:=2125 KHZ & 4=2295 KHZ 
;TURN ON 2295 KHZ SPACE 
«BAUD RATE EQUIVALENT 
ROM DELAY SUBROUTINE 
;RETURN WHENCE U CAME +1 
822125 KHZ & 4=2295 KHZ 
TURN ON 2125 KHZ MARK 
;BAUD RATE EQUIVALENT 
+ROM DELAY SUBROUTINE 
;RETURN WHENCE U CAME +1 
i= ASCII LEFT ARROW 
;DISPLAY IT ON VIDEO 
;VIDEO CARRIAGE RETURN 
i] = AUTO CARRIAGE RETN 
iSTASH IT AWAY IN 'MORE' 
; $0919 = LINE FEED 
;SEND IT 

32 = NO MORE 

;NOTHING 'MORE' TO SEND 
;ZERO OUT CHAR. COUNTER 
; 61908 = CARRIAGE RETURN 
sSEND IT 


93299 SPACE] 
93309 

9331p 

93320 

93338 

93349 SPACE2 
9335p 

3360 

93379 

93389 

93399 

93499 LTRS2 
93419 

93428 

9343p 

93449 SIGNI 
93459 SIGN2 
03469 SIGN3 
93470 MORE 
93489 TIMES 
93490 TIMES 
93500 

9351p 

93520 

93539 

93549 TIME? 
93559 FINISI 
93569 

93578 

93589 

93599 

93699 

93619 KYBD2 
93629 

93639 

93640 

93650 

93669 

03679 XMIT3 
9368p 

9369p 

93700 

03719 

93728 

93738 

93749 

93758 

9376p 

93778 

93780 

93790 

93809 

9381p 

9382p 

0383p 

9384p 

93859 

93869 

93879 

93889 

93899 


LD 


CALL 
RET 

DEFW 
CALL 


‘(COMPUTROMNICS: 


A, (SIGNI) 


p 
NZ, SPACE2 


(MORE) ,A 
Ap 
(SIGN1) ,A 


(MORE) ,A 
0,31 
SEND 

9 

8 

9 

p 

2271 

AB 

(9) A 
BC, (TIMES) 
B6OH 


34425 
TIME6 

A, (MORE) 
1 
Z,CARETN 
2 

Z, LTRS2 
A, (SIGN2) 
1 


98 


115 


A, (SIGNI) 
1 
Z,RESET1 
AF 


38 = LTRS & 1 = FIGS 
;SUBTRACT ZERO SET 'Z' 
;IF IN FIGS GOTO SPACE 2 
; 08198 = SPACE 

SEND IT 

2 = UNSHIFT ON SPACE 
:STASH IT IN MORE 

:@ = LTRS (FOR UNSHIFT) 
:STASH IT IN SIGNPOST 

; 69190 = SPACE 

SEND IT 

:B = NOTHING MORE 

;STASH IT AWAY IN MORE 

+ 11111 = LTRS 

;SEND IT 

:f = LTRS & 1 = FIGS 
;PREPARE MES. SIGNPOST 
CHARS. PER LINE COUNTER 
;AUTO EXTRA CHARACTERS 
STOP BIT TIME STASH 
;P=2215 KHZ & 1=2295 KHZ 
:SEND 2215 KHZ STOP SIG 
"STOP BIT TIME DELAY 
sROM DELAY SUBROUTINE - 
+RETURN WHENCE U CAME +1 
+ CARRIAGE RETURN DELAY 
;STOP BIT TIME DELAY 
sANY 'MORE' TO SEND ? 

; SUBTRACT 1 

;IF SO, RETURN CARRIAGE 
; SUBTRACT 2 

;IF SO, GOTO LTRS2 
;PREPARED MESSAGE ? 

+1 = MESSAGE BEING SENT 
;IF SO, GOTO SENDA 
;AWAIT KEYBOARD INPUT 
;CLEAR KEY PRESSED ? 
;LATER-WE'LL GOTO RECEIVE 
;ASCII SPACE ? 

; JUMP OVER COMPARES 

: SHIFT 'B' PRESSED ? 

VIF $0, GOTO BASIC 

8 = ASCII BACKSPACE 
;BAUDOT = NO SUCH THING 
CARRIAGE RETURN ? 

;AUTO LINE FEED & C.R. 

; SHIFT UP ARROW PRESSED ? 
‘IF SO GOTO MESSAGE TABLE 
;UP ARROW PRESSED ? 
;PREPAR. MESSAGE NO TABLE 
;SHIFT 'S' PRESSED ? 
;GOTO SPEED CHANGE 

;-65 SET SIGN FLAG 

;IF MINUS TEST LTRS/FIGS 
+-91 SET SIGN FLAG 
INVALID-RETURN TO KYBD 
SAVE AF IN STACK 

3B = LTRS & 1 = FIGS 

;-l FROM 'A' SET 'Z' FLAG 
; IF FIGS, GO AND RESET 
sRESTORE AF FROM STACK 


93996 VIDEO2 CALL 


93919 JP 
93920 TEST1 PUSH 
03938 LO 
939498 cP 
93959 JP 
939698 POP 
93970 JP 
93989 SET LD 
93999 LD 
94900 CALL 
94919 CALL 
94029 CALL 
9403p CALL 
papap CALL 
papsp CALL 
p4pep CALL 
94070 POP 
p4psp JP 
94090 RESET] LD 
4199 LO 
p4llp CALL 
4129 CALL 
94130 CALL 
p4l4p CALL 
9415p CALL 
9416p CALL 
4179 CALL 
9418p POP 
94199 dP 
94290 SKIP LO 
p42ip CALL 
94229 RET 
94239 SENDS LD 
9424p LD 
94250 CALL 
p426p JP 
94278 AUTOL LD 
94289 LD 
94299 CALL 
4309 CALL 
9431p CALL 
4328 CALL 
94330 CALL 
94349 CALL 
94358 CALL 
P4360 CALL 
4379 CALL 
9438p CALL 
94399 CALL 
94409 CALL 
p44lp CALL 
94429 CALL 
4439 CALL 
gasp LD 
9445p CALL 
pasep LO 
9447p CALL 
9448p RET 
p4490 MENU = CALL 
4500 CALL 


(SIGNI) ,A 
SPACE 
MARK 


SPACE 


Al 
PASH 


Ap 
(SIGN3) ,A 
SPACE 
SPACE 
MARK 
SPACE 
SPACE 
SPACE 
TIME6 
TIME6 
SPACE 
SPACE 
SPACE 
SPACE 
MARK 
SPACE 
TIME6 
A,93 
33H 
BC, (TIME7) 
f6GH 


CLS 
SKIP 


;DISPLAY 'A' ON VIDEO 
;GOTO CONVERT TO BAUDOT 
;SAVE AF IN STACK 
;LTRS/FIGS SIGNPOST 

IS IT FIGS ? 

:IF NOT, SEND FIGS 
;RESTORE AF FROM STACK 
;GOTO VIDEO AND IT 

7 = LTRS & 1 = FIGS 
;LTRS/FIGS SIGNPOST 
;START BIT 

sFIGS = 11911 

#1 

8 

3=1 

21 

STOP BIT 

“RESTORE AF FROM STACK 
;G0 SEND CHARACTER 

38 = LTRS & 1 = FIGS 
;LTRS/FIGS SIGNPOST 
START BIT 

LETTERS = 11111 

il 

=] 

ad | 

=1 

«STOP BIT 

;RESTORE AF FROM STACK 
;GOTO VIDEO AND SEND IT 
;CARRIAGE RETURN ON VIDEO 
;b0 IT 

RETURN WHENCE U CAME +1 
;1 = PREPARED MESSAGE 
;STASH IT IN SIGNPOST 2 
sAWAIT 'A’ TO 'W' INPUT 
;G0 AN SEND. IT 

ZERO OUT ‘A’ 

;ZERO TO CHARS/LINE CTR 
START BIT 

90019 = LINE FEED 

=] 

=f 

0 

a) 

STOP BIT 

;EXTRA LINE FEED DELAY 
START BIT FOR CARRETURN 
:P1900 = CARRIAGE RETURN 
=p 

re) 

Aad | 

i=8 

;STOP BIT 

;ASCII 93 = LEFT ARROW 
;DISPLAY IT ON VIDEO 
;CARRIAGE RETURN DELAY - 
;FOR MECHANICAL PRINTERS 
;RETURN WHENCE U CAME +1 
;COMPATABILITY MOD 1 & 3 
;VIDEO CARRIAGE RETURN 


94518 
94528 
94530 
9454p 
94558 
94568 
94578 
9458p 
94590 
pacpp 
94619 
94628 
94630 
p464p 
paG5p 
pac6p 
pa67p 
4680 
p469e 
94700 
94710 
94720 
94736 
94749 
94750 
4760 
04779 
9478p 
94798 
p48pp 
04819 
94826 
04830 
9484p 
94859 
p486p 
04878 
04880 
94898 
04908 
04918 
0492p 
9493p 
94948 
94950 SEND6 
9496p 
94978 
94980 
94990 
P5008 
95019 
95020 
95039 
9504p 
9595) 
p5p60 
95079 
95988 
p5p9p 
95198 
A511) 


‘(COMMPUTROMNICS: 


HL MENU 
28A7H 
SKIP 
SKIP 
HL MS] 
28A7H 
SKIP 
Hi ,MS2 
28A7H 
SKIP 
HL ,MS3 
28A7H 
SKIP 
HL ,MS4 
28A7H 
SKIP 
HL MSS 
28A7H 
SKIP 


HL ,MS1BA 
28A7H 
SKIP 


;ADDRESS TO HL 

;ROM DISPLAY ROUTINE 
3C.R. 

iC.R. 

;MESSAGE 1 ADDRESS 
;DISPLAY MESSAGE 
3C.R. 

;MESSAGE 2 ADDRESS 
;DISPLAY MESSAGE 
3C.R. 

;MESSAGE 3 ADDRESS 
;DISPLAY MESSAGE 
3C.R. 

;MESSAGE 4 ADDRESS 
;DISPLAY MESSAGE 
3C.R. 

;MESSAGE 5 ADDRESS 
;DISPLAY MESSAGE 
3C.R. 

;MESSAGE 6 ADDRESS 
;DISPLAY MESSAGE 
3C.R. 

;MESSAGE 7 ADDRESS 
;DISPLAY MESSAGE 
3C.R. 

;MESSAGE 8 ADDRESS 
:DISPLAY MESSAGE 
‘C.R. 

;MESSAGE 9 ADDRESS 
;DISPLAY MESSAGE 
C.R. 

{MESSAGE 18 ADDRESS 
;DISPLAY MESSAGE 
sC.R. 

;MESSAGE 1A ADDRESS 
{DISPLAY MESSAGE 
3C.R. 

iC.R. 

;MESSAGE 11 ADDRESS 
;DISPLAY MESSAGE 
;AWAIT KEYBOARD INPUT 
;SAVE AF IN STACK 
;COMPATABILITY NOD 1 & 3 
;RESTORE AF FROM STACK 
vA? 

VIF SO, GOTO CQ 


IF SO, GOTO QTH 

IF SO, GOTO CQ DX 

,IF SO, GOTO CQ SS 

sIF SO, GOTO QRZ 

IF $0, GOTO 73 

;IF SO, GOTO RST 5 X 9 
3H? 


;IF SO, GOTO RST 5 X 5 
‘17? 
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95129 
9513p 
95148 
95150 
95168 
95178 
95189 
95199 
P5208 
95219 
5220 
95230 
9524p 
95250 
05260 
95279 
95289 
95299 
05300 
95310 
95328 
95339 
95349 
9535p 
95369 
95378 
95388 
95398 
£5409 
95419 
95429 MENU] 
95439 
#5449 MS1 


9545p 
95468 MS2 


05479 
95488 NS3 


95499 
5500 MS4 


95518 
5528 MS5 


“95530 
95549 MS6 


95558 
95569 MS7 


P5579 
95588 MS8 


P5599 
5600 MS9 


95619 
95628 S16 
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Jp Z, QRX SIF $0, GOTO QRX 
cP 14 J? 
JP 7, QRM SIF SO, GOTO QRM 
cP 75 K2 
JP Z, ORN sIF $0, GOTO QRN 
cP 76 :L? 
JP Z, QSY “IF $0, GOTO QSY 
cP 17 M2 
JP Z, QSYUP SIF $0, GOTO QSY UP 
cP 78 iN? 
Jp Z, QSYON -IF $0, GOTO QSY DOWN 
cP 79 0? 
JP Z, SECT sIF $0, GOTO SECTION 
cP 8p :P'? 
JP Z, TRS8D sIF $0, GOTO TRS-80 
cP 81 :Q? 
JP 7, PGMHR sIF $0, GOTO PROGRAM HR 
cp 82 R? 
JP Z, RIGHR sIF $0, GOTO RIG HERE 
cP 83 $2 
JP Z, RYRY sIF $0, GOTO RYRYRY 
cP 84 1? 
JP Z, QUICK “IF $0, GOTO QUICK BROWN 
cP 85 U? 
JP 7, HANDL sIF $0, GOTO HANDLE 
cP 86 V2 
Jp Z, INPUT2 sIF $0, GOTO INPUT MESG. 
cP 87 We? 
Jp Z, INPUT sIF SO, SEND INPUT MESG. 
Jp NENU INPUT ERROR TRAP 
DEFM PREPARED MESSAGE SUBROUTINE! 
DEFB pf ;MESSAGE DELIMITER 
DEFM CQ=A 
QTH = B' 
DEFB Op ;MESSAGE DELIMITER 
DEFM cQ OX =C 
CQ SS = D! 
DEFB Op ;MESSAGE DELIMITER 
DEFM QRZ = E 
73 = FF 
DEFB Op sMESSAGE DELIMITER 
DEFM RST 5X9 PLUS = G 
RST 5X5 = H! 
DEFB Op ;MESSAGE DELIMITER 
DEFM QRX = 
QRM = J! 
DEFB Op “MESSAGE DELIMITER 
DEFM QRN = 
Qsy = L' 
DEFB Op ;MESSAGE DELIMITER 
DEFH QsY UP = M 
QSY DOWN = N’ 
DEFB Og ;MESSAGE DELIMITER 
DEFM SECTION = 0 
TRS-86 = P' 
DEFB Op ;MESSAGE DELIMITER 
DEFM PROGRAM HERE = Q 
RIG HERE = R' 
DEFB Op ;MESSAGE DELIMITER 
DEFM RYRYRY = S 
UICK BROWN = T! 


30 DEFB Og 
9564p CALL 
95650 MSIBA DEFM 
95660 DEFB 
95670 CALL 
9568) MS11 —DEFM 
MESSAGE DESIRED ? ' 
95690 DEFB 
p5798 CQ sD 
95719 JP 
95728 QTH = LD 
05730 JP 
95748 CODX LD 
95750 JP 
05760 CQSS LD 
95778 JP 
95780 QRZ LD 
95790 ap 
95800 SEVEN3 LD 
95819 JP 
95820 RST59 LD 
9583p JP 
9584 RSTS5 LD 
95850 JP 
05869 QRX LD 
95870 JP 
95880 QRM = LD 
95899 JP 
5990 QRN LD 
95919 JP 
95928 QSY LD 
9593p JP 
95949 QSYUP LD 
95958 JP 
95960 QSYDN LO 
95970 ap 
p5980 SECT LD 
95999 JP 
#6902 TRS89 LD 
#6919 JP 
96920 PGMHR LD 
P6930 JP 
694) RIGHR LD 
6 p50 Jp 
g6p60 RYRY LD 
96979 JP 
AGP8B QUICK LD 
p6p9p JP 
96199 HANDL LD 
96119 JP 
96128 INPUT LD 
9613p JP 
6149 SEND3 LD 
96158 LD 
6166 SEND4 LD 
96179 cP 
96180 JP 
96199 INC 
£6208 JP 
96219 KYBD3 LD 


‘COMPUTROMNICS: 


{MESSAGE DELIMITER 

SKIP iC.R. 
: HANDLE = U 
INPUT MESSAGE = V & W' 
p +MESSAGE DELIMITER 
SKIP iC.R. 
: ENTER PREPARED 

*;MESSAGE DELIMITER 
1Q,CQ1 ;CQ ADDRESS TO IY 
SEND3 ;GOTO SEND 3 
IY, QTH1 ;QTH ADDRESS TO IY 
SEND3 ;GOTO SEND 3 
TY ,CQDX1 ;CQDX ADDRESS T0 IY 
SEND3 GOTO SEND3 
TY, CQSS1 ‘CQSS ADDRESS TO IY 
SEND3 :GOTO SEND 3 
TY ,QRZ1 :QRZ ADDRESS TO IY 
SEND3 :GOTO SEND 3 
TY, QRZ ;73 ADDRESS T0 IY 
SEND3 :GOTO SEND 3 
TY ,RST591 «RST 59 ADDRESS TO IY 
SEND3 ;GOTO SEND 3 
TY ,RST551 ;RST 55 ADDRESS TO IY 
SEND3 ;GOTO SEND 3 
TY, QRX1 :QRX ADDRESS TO IY 
SEND3 :GOTO SEND 3 
TY ,QRM1 ;QRM ADDRESS TO IY 
SEND3 :GOTO SEND 3 
TY, QRN1 ;QRN ADDRESS TO IY 
SEND3 ;GOTO SEND 3 
TY, QSY1 ;QSY ADDRESS TO IY 
SEND3 ;GOTO SEND 3 
TY ,QSYUPI iQSY UP ADDRESS TO IY 
SEND3 :GOTO SEND 3 
TY ,QSYONL ;QSY DOWN ADDRESS TO IY 
SEND3 ;GOTO SEND 3 
TY, SECT] ; SECTION ADDRESS TO IY 
SEND3 ;GOTO SEND 3 
TY, TRS801 i; TRS-88 ADDRESS TO IY 
SEND3 :GOTO SEND 3 
TY ,PGMHR1 ;PROGRAM HERE ADDR TO IY 
SEND3 ;GOTO SEND 3 
TY ,RIGHR1 ;RIG HERE ADDRESS TO IY 
SEND3 :GOTO SEND 3 
TY ,RYRY1 iRYRY ADDRESS TO IY 
SEND3 ;GOTO SEND 3 
TY QUICK] ;QUICK BROWN ADDR TO IY 
SEND3 ;GOTO SEND3 
TY ,HANDL1 ;HANDLE ADDRESS TO IY 
SEND3 :GOTO SEND 3 
IY, INPUT1 vINPUT MESG. ADDR. TO IY 
SEND3 ;GOTO SEND 3 
Al ;1 = PREPARED MESSAGE 
(SIGN2) ,A ; SIGNPOST 
A, (TY) : MESSAGE 
8 i = END OF MESSAGE 
2, KYBD3 ‘IF SO, GOTO KYBD 3 
IY i+1 TO MESSAGE ADDRESS 
XMIT3 ;G0 SEND IT 
Ap iB = MESSAGE DONE 


96228 LD (SIGN2) ,A ;STASH IT AWAY 

8623p JP KYBD2 ;RETURN TO THE KEYBOARD 
96249 CQ1 DEFN = 'CQ CQ CQ DE WAUCH/2 W4UCH/2 K K K ' 
96250 DEFB ; DELIMITER 


9 
96260 QTH1  DEFM  'QTH IS BOX 1065 - CHAUTAUQUA LAKE, 


NEW YORK 14722 ' 


96270 DEFB op ;DELIMITER 

96288 CQDX1 DEFM "CQ DX CQ DX CQ DX DE W4UCH/2 K K K ' 
96298 DEFB OB ; DELIMITER 

P6309 CQSS1 DEFM 'CQ SS CQ SS CQ SS DE W4UCH/2 K K K ' 
96319 DEFB Op ; DELIMITER 

96328 QRZ1 EFM ‘QRZ QRZ QRZ DE W4UCH/2 K K K ' 

96330 DEFB ;DELIMITER 


p 

96348 SVN31 DEFM ‘73 TO YOU AND URS. MNY TNX FB QSO. 
DE WAUCH/2 K K K ' 
96359 DEFB ff ; DELIMITER 

96360 RST591 DEFM ‘UR RST 5X9 PLUS...A WHOPPING 

BIG SIGNAL HERE AT CHAUTAUQUA LAKE ' 

96378 DEFB ;DELIMITER 

96380 RST551 DEFM ‘UR RST 5X5 WITH MODEST QSB. 

LETS HOPE THE BAND INPROVES. ' 


96390 DEFB Og ; DELIMITER 
6498 QRX1  DEFM  'QRX A MINUTE. THE PHONE. STANDBY. ' 
26419 DEFB - DELIMITER 


p 
96420 QRM1 DEFM  ‘QRM QUITE BAD. PLEASE TRY AGAIN. 
DE WAUCH/2 K K K ' 
96439 DEFB {DELIMITER 
96449 QRNI  DEFM "LOCAL QRN TERRIBLE. PLEASE TRY AGAIN. 
DE W4UCH/2 K K K ' 
9645p DEFB ,; DELIMITER 
P6460 QSY1 ODEFM  ‘QRM TERRIBLE. LETS QSY? WHERE MOVE? 
DE W4UCH/2 K K K ' 
9647p DEFB 
98488 QSYUP1 DEFM 
DE WAUCH/2 KK K ' 
96498 DEFB 
96500 QSYDN1 DEFM 
DE W4UCH/2 K K K ' 
9651p DEFB 
96528 SECT! DEFM 
NY DE W4UCH/2 K K K ' 
96530 DEFB Oph ; DELIMITER 
96549 TRS861 DEFM 'TRS-88 MICROCOMPUTER HERE IS DOING 
ALL THE WORK FOR ME. ' 
96559 DEFB Op ; DELIMITER 
6569 PGMHR1 DEFM ‘PROGRAM IS FROM DISASSEMBLED HANDBOOK 
FOR TRS-8@ VOLUME 4. ' 
96578 DEFB OB ; DELIMITER 
$6589 RIGHR1 DEFM ‘RIG HR IS OLD HT-37, ITT 3821 RECVR 
AND DIPOLE IN THE ATTIC. ' 
96598 DEFB Op 
$6608 RYRY1 OEFM 
RYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRY ' 
96619 OEFB OQ ; DELIMITER 
6629 QUICK1 DEFM ‘THE QUICK BROWN FOX JUMPED OVER THE 
LAZY DOGS BACK §123456789 ' 
96632 DEFB Op ;DELIMITER 
6649 HANDL] DEFM ‘HANDLE IS (BOB). AM NEW TO RTTY, SO 
FORGIVE PROTOCOL ERRORS! ' 
96650 DEFB OD 
f6669 INPUT2 LD HL, INPUTI 


v] ;DELIMITER 
"LETS BOTH MOVE UP 1 KHZ UP 1 KHZ? 


pg ; DELIMITER 
‘LETS BOTH MOVE DOWN 1 KHZ DOWN 1 KHZ? 


) ; DELIMITER 
‘ARRL SECTION IS WEST. NY - WEST. 


; DELIMITER 
"RYRYRYRYRYRYRYRYRYRYRY 


; DELIMITER 
;MESSAGE ADDRESS TO HL 


P6679 INPUT3 CALL 49H ;AWAIT KEYBOARD INPUT 


#6680 cP 8 38 = ASCII BACKSPACE 
96699 JP Z, BACK ;GOTO BACKSPACE 

0670 cP 13 ;13 = 'ENTER' 

96719 JP Z, DONE ;GOTO DONE IF FINISHED 
96728 LO (HL),A :STASH IT IN MEM 

96730 CALL = 933H ;DISPLAY IT ON VIDEO 
9674 INC HL +1 TO HL REGISTER 

9675 JP INPUT3 ;GO BACK FOR ANOTHER INP 
6769 BACK DEC HL ;-1 TO HL REGISTER 

96770 CALL 33H ;DISPLAY IT ON VIDEO 
26788 JP INPUTS ;60 BACK FOR ANOTHER INP 
96798 DONE LD Ap ;ZERO IS THE DELIMITER 
96809 LD (HL),A +STASH IT IN MEM AT HL 
9681p JP KYBD2 ;GOTO KYBD FOR INSTRUCTS. 
96820 BASIC CALL CLS ;COMPATABILITY MOD 1 & 3 
96839 EX AF AF’ ; SWAP ALTERNATE REGISTERS 
96840 EXX ;SWAP ALTERNATE REGISTERS 
96850 POP IY ;RESTORE FROM STACK 
p6860 POP Ix +RESTORE FROM STACK 
6879 JP 1A19H ;RETURN TO BASIC 'READY' 


O6889 TIME] ODEFW 1530 
M6899 TIME2 DEFW 765 
P6900 TIMES DEFW 865 
96919 CARRET LD A, 0H 


;SAVE 2 BYTES FOR TIME 1 
; SAVE 2 BYTES FOR TIME 2 
;SAVE 2 BYTES FOR TIME 3 
(MOH = CARRIAGE RETURN 


16920 CALL 33H ;D0 IT ON VIDEO 

9693p RET ;RETURN WHENCE U CAME + 1 
96949 CLS CALL piCSH ;STANDARD ROM CLS ROUTINE 
96952 LD Ap ;MODEL 3 COMPATABILITY 
96968 OUT (224) ,A oe nm 

96979 LD A,48 cn eS 

P6982 OUT (236) ,A Se ae 

£6998 RET ;RETURN WHENCE U CAME + 1 


97000 INPUT! DEFM ‘YOU FORGOT TO INPUT A MESSAGE - 
YOU FORGOT TO INPUT A MESSAGE ' 
7016 DEFB OB 

97028 END W4UCH 


;MESSAGE DELIMITER 
;EL FIN = EL BEGUINE 


SPECIAL NOTE 
FOR MODEL III USERS 


The Model tI! keyboard may be shifted from upper 
case only to upper and lower case by pressing shift 
“zero.” BEFORE entering ANY upper case commands 
from the keyboard such as shift “up arrow’ to display 
the prepared message menu, shift “B” to go to 
“BASIC” or shift “S” to change transmitting speed, you 
MUST press shift “zero” and THEN THE LOWER CASE 
LETTER DESIRED to execute the command. Another 
alternative is to change these commands to @, *, < or > 
which do not have any Baudot equivalents to eliminate 
the shift “zero” foolishness. 


INVERTER MODIFICATION FOR 
THE VAR/80 AND INTERFACER 2 
Inverting a transmitted or received RTTY signal may 


be done with either software or hardware. We chose 
the latter option as it is a simple matter to mount a 
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single 7404 hex inverter chip on a 1 inch square piece 
of perfboard and mount it with #16 wire standoffs 
going to the + 5 vdc and ground terminals on the 
VAR/80 front panel. Using RCA phono plugs and jacks 
to the appropriate INPUT and OUTPUT connectors 
allows normal or inverted operation as desired. When 
using the TU-170 with this program, the VAR/80 or 
Interfacer 2 output should be inverted BEFORE driving 
the TU-170 AFSK keying input. Other TU’s should be 
checked before “going on the air.” 


FURTHER PROGRAM NOTES 


TIME1, TIME2, and TIME3 in lines 680 to 1050 are 
used ONLY by the RECEIVE program in Chapter 6. To 
make them automatic when selecting TRANSMIT 
MODE speed, they are included in this segment of the 
program. They may be OVERRULED by the receive 
mode program, if desired, to allow you to transmit at 
any one of the 4 Baudot speeds while receiving at 
another speed. ; 

The time constants used for SPEED2 and TIMES, 
data bit and stop bit lengths, respectively, in this 
transmit program, are the constants WE evolved for 
satisfactory operation using extremely old and decrep- 
it World War I! TTY machines for the tests. Do not 
hesitate to modify them if you wish. REMEMBER to 
increase them by 15% (fifteen percent) for the Model 
Wl. 

The origin of the program is set at 28000 decimal to 
allow the addition of the Baudot receive program in 
the next Chapter, and still remain under 32767 MEM. 
As such, the OBJECT code may be loaded into a 16K 
MEM TRS-80 without difficulty. WHEN USING THE 
EDITOR/ASSEMBLER (ABOUT 7K BYTES) AND AS- 
SEMBLING THIS PROGRAM (WELL OVER 15K BYTES 
WITH COMMENTS) IT OBVIOUSLY “WILL NOT” FIT 
INTO A 16K MEM TRS-80. 48K MEM IS RECOM- 
MENDED FOR ASSEMBLING THE COMBINED 
TRANSMIT AND RECEIVE PROGRAMS. 


RUNNING THE W4UCH BAUDOT 
RADIO TELETYPE PROGRAM 


Is as straightforward and “Gridley-proof’ as we 
could make it. 

ARE YOU SPEAKING TO 12??? 

Not exactly, Gridley. What we mean is that a 
number of radio amateurs with NO computer experi- 
ence have run this program without difficulty after only 
a few minutes instruction. Here are the minimum 
instructions necessary to operate the program like an 
“old time RTTYer’ (we do not wish to insult the 
readers’ intelligence with TOO detailed instructions, 
but are presuming the operator has never seen a TRS- 
80 before). 

1. Turn “ON” the TRS-80 and press ENTER. 


38 ‘COMPUTROMNICS: 


2. Install the cassette which has the program 
BAUDOT and press PLAY. Type in SYSTEM and ENTER. 
Type in BAUDOT and ENTER. After the cassette has 
loaded and the ? appears, type in /28000 and ENTER. 
If all is well, “TRANSMIT MODE - WPM = 60” should 
appear. If not, adjust cassette volume and try again. 

3. With disk, in the DOS command mode, type in 
“LOAD BAUDOT1” and ENTER. We assume that at 
least one of your desks, any one, has the object code 
program, BAUDOT1 on it. if you have NEWDOS+ or 
NEWDOS80, then type in BASIC,28000 and ENTER, 
otherwise just type in BASIC and ENTER, answer NO. 
OF FILES? with another ENTER, and MEMORY SIZE? 
with 28000 and ENTER. When in BASIC, type in 
SYSTEM and ENTER, and then type in /28000 and 
ENTER. “TRANSMIT MODE - WPM = 60” should 
appear. 

4, Press any key which has a Baudot equivalent. ZAP, 
off goes the program issuing a serial Baudot character 
at a 60 WPM equivalent speed to port zero which rings 
the Telesis VAR/80 interface’s bell. The VAR/80 
OUTPUT terminal #2 issues forth a number of TTL 
voltage states representing ones and zeroes. The 7404 
hex inverter inverts them and drives the TU-170's 
AFSK KEYING input. The TU-170 generates audio 
tones of 2125 cycles = MARK and 2295 cycles = 
SPACE which feeds into the mike input of your 
amateur single sideband transmitter. You are “on the 
air’ with Baudot radio teletype. 

5. Press shift “up-arrow” and the prepared message 
MENU will be displayed as follows: 


PREPARED MESSAGE SUBROUTINE 


CQ=A QTH = B 

CQ OX = C¢ CQ SS = 0 

QRZ =E 73 = F 

RST 5X9 PLUS = G RST 5X5 = H 
QRX = I QRM = J 

QRN = K QSY=L 

QSY UP = QSY DOWN = N 
SECTION = 0 TRS-88 = P 
PROGRAM HERE = Q RIG HERE = R 
RYRYRY = S QUICK BROWN = T 
HANDLE = INPUT MESSAGE = V & W 


ENTER PREPARED MESSAGE DESIRED ? - 


6. These messages are only to illustrate a few of the 
choices one has. By all means change them to suit your 
fancy. Try pressing T. First the program will clear the 
video display and then transmit at a 60 WPM rate: 


THE QUICK BROWN FOX JUMPED OVER THE LAZY 
DOGS BACK 01234567890 

Now hit the space bar a few times to bring the __ cursor 
over to the left edge of the video display. Then press 
the “up-arrow” key (NO SHIFT) and press T. The video 


display will now print out the 2nd line at a 60 WPM 
rate. 


THE QUICK BROWN FOX JUMPED OVER THE LAZY 
DOGS BACK 01234567890 THE QUIC-K BROWN 
FOX JUMPED OVER THE LAZY DOGS BACK 012345678 


What happened the second time was that the video 
display DID NOT clear, nor did you receive the MENU 
of messages. AFTER 72 characters total were printed, a 
LEFT ARROW was displayed = auto line feed and 
carriage return transmitted. NOT CLEARING the 
screen is often useful in the middle of a contact. 

7. Let’s press shift “up-arrow” again for the menu. 
Try pressing W. The screen will clear and the following 
message will be transmitted at 60 words per minute 
equivalent speed: 

YOU FORGOT TO INPUT A MESSAGE 

As the prepared message menu illustrates, one 
presses V to input a message. The program uses W to 
send it. Press V and the screen will clear. The program 
is waiting for you to input a prepared message. All 
characters on the keyboard are active, but the program 
will ONLY transmit those which have a Baudot 
equivalent. SHIFT D (for done) is the way we tell the 
program our message input is complete. Type in: 

W4UMF THIS IS W4UCH/2 FOR I.D. (now press 
shift D) 

Shift D inserts a zero in MEM at the end of the 
message which tells the program it has finished 
sending the prepared message. Give it a try. Press “up- 
arrow”, then W. 

HOORAY, IT REALLY DOES WORK!!! 

Thank you, Gridley. 

Actually, the message could be as long as you have 
memory available to hold it. IF you have 48K MEM you 
could input up to 30+ pages (1024 bytes per page) of 
prepared message if desired. This is a bit much, but if 
you were sending your monthly ham/computer club 
newletter quite feasible IF you have the patience to 
input it from the keyboard. The INPUT message MAY 
use the ENTER key which transmits a line feed AND 
carriage return whenever used. IF you wish to input 
continuous text without using ENTER, a line feed and 
carriage return will be transmitted automatically after 
every 72 characters to ensure compatability with 
standard teletype machines. 

7. Now that a prepared message has been 
transmitted, the program takes us back to the 
keyboard where we may continue typing in whatever 
we wish. In Chapter 7, the CLEAR KEY will be used to 
transfer us to the RECEIVE MODE - WPM = 60. If you 
wish to change both transmit and receive speed, just 
press shift S in the TRANSMIT MODE and video will 
display: 


INPUT SPEED 60, 66, 75, 100 


Input the speed desired and press ENTER. 
8. To return to BASIC, simply press shift B, in 
TRANSMIT MODE. 


SUMMARY OF CHAPTER 5 


The comments with the program’s source code are 
largely self-explanatory and should allow you to follow 
detailed program flow. The program could’ have been 
written in a considerably shorter format, but the pro- 
gram flow and logic would NOT have been as easy to 
follow. This is BOTH a working program and a TEACH- 
ING PROGRAM, so clarity rather than brevity has been 
the prime consideration. Once you master the logic 
and program flow of this Chapter’s program, you should 
have little difficulty writing and tailoring a Baudot radio 
teletype transmit program to your own specific require- 
ments. Why not load part of Chapter 1’s Morse transmit 
program in another MEM location and use it to transmit 
the Morse I.D. for you every 10 minutes to meet FCC 
requirements? Just key the space tone. au 


wabash 


When it comes to 
Flexible Disks, nobody 
does it better than 
Wabash. 


MasterCard, Visa Accepted. 
Call Free: (800) 235-4137 


PACIFIC 
EXCHANGES 
100 Foothill Blvd 
San Luis Obispo. CA 
93401 (In Cal. call 
(805) 543-1037 ) 
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HELPFUL HINTS 


World's Shortest Word Processor — Shortened ! 
While it is true that Jeffrey Vavasour and his father have 
a very short word processor (17 bytes if spaces are 
omitted), it may be shortened even further: the first 
semicolon may be omitted with no change in 
performance: 


1 PRINTCHR$(14) INKEY$; :GOTO1 


Also, and less well known, there is the fact that 
“GOTO” can be made to work without a line number 
provided that there is a line zero: 


f PRINTCHR$(14) INKEY$; : GOTO 


If one is willing to go to the extra trouble, one could go 
even further by writing: 


§ PRINT" "INKEY$; : GOTO 


then PEEKing around the first few bytes of BASIC 
program storage to locate the blank (32) and POKING 
that location with 14. (13 bytes !) 


(Thanks to James Garon, Sigma Microsystems Inc., 415 
West Palmer Avenue, Glendale, CA 91204.) 


World’s Second Shortest Word Processor 

On page 106 of your reprint of issues #1-#6 (part II), 
you published a short program that simulated a word 
processor. | have recently written a program that is only 
a few lines longer, but can actually be used as a small- 
purpose word processor with most printers. The 
instructions are: after typing RUN, type in your text, 
then press the “@” key to print it. The text must fit on 
the screen or else whatever is off the screen will not be 
printed. 


19 CLS: PRINT CHRS(14); 

20 IS=INKEY$: IF I$="@" THEN PRINT CHR$(15);: GOTO 49 
30 PRINT I$;: GOTO 29 

4f FOR Y=@ TO 15: FOR X=@ TO 63 

59 P=PEEK(15368+Y°64+X) 

69 IF P>26 THEN LPRINT CHR$(P); ELSE LPRINT CHR$(P+64) ; 
78 NEXT X: LPRINT: NEXT Y 

8 PRINT CHRS(14);: GOTO 29 

9p END 


(Thanks to Victor Reiner, 2 Derbyshire Place, Utica, NY 
13501.) 


CLEANUP for Canadian Readers 

As a recent subscriber to your monthly magazine, | 
received the complimentary cassette with an excellent 
fun game — CLEANUP. I just thought other Canadian 
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readers like myself might like the enclosed change in 
the program. Perhaps some others could do a better 
“job” of the Maple Leaf. 

To use these changes, delete lines 9800 to 10300 
inclusive and replace them with the lines below. 
9809 CLS: FOR Y=? TO 1: SET(#,Y): SET(3,¥): NEXT Y: 

FOR Y= TO 47: SET(1,Y): SET(2,Y): NEXT Y 

9805 FOR X=3 TO 124: SET(X,4): NEXT X: FOR X=4 TO 124: 
SET(X,38): NEXT X 

9819 FOR Y=4 TO 47: SET(4,Y): NEXT Y: FOR Y=4 10 38: 
SET(124,Y): NEXT Y 

9815 FOR X=34 TO 93: SET(X,5): NEXT X: FOR X=34 TO 93: 
SET(X,6): NEXT X: FOR X=34 TO 93: SET(X,7): NEXT X 

9820 FOR X=34 TO 61: SET(X,8): NEXT X: FOR X=66 TO 93: 
SET(X,8): NEXT X 

9825 FOR X=34 TO 59: SET(X,9): NEXT X: FOR X=68 TO 93: 
SET(X,9): NEXT X 

9838 FOR X=34 TO 57: SET(X,10): NEXT X: FOR X=78 10 93: 
SET(X,19): NEXT X 

9835 FOR X=34 TO 54: SET(X,11): NEXT X: FOR X=73 TO 93: 
SET(X,11): NEXT X ; 

9848 FOR X=34 TO 51: SET(X,12): NEXT X: FOR X=78 TO 93: 
SET(X,12): NEXT X 

9845 FOR X=34 TO 49: SET(X,13): NEXT X: FOR X=78 TO 93: 
SET(X,13): NEXT X 

9858 FOR X=34 TO 51: SET(X,14): NEXT X: FOR X=76 TO 93: 
SET(X,14): NEXT X 

9855 FOR X=34 TO 52: SET(X,15): NEXT X: FOR X=75 TO 93: 
SET(X,15): NEXT X 

9869 FOR X=34 TO 45: SET(X,16): NEXT X: FOR X=48 TO 53: 
SET(X,16): NEXT X: FOR X=74 TO 79: SET(X,16): NEXT X: 
FOR X=82 TO 93: SET(X,16): NEXT X 

9865 FOR X=34 TO 49: SET(X,17): NEXT X: FOR X=5f TO 54: 
SET(X,17): NEXT X: FOR X=73 TO 77: SET(X,17): NEXT X: 
FOR X=87 10 93: SET(X,17): NEXT X 

9879 FOR X=34 TO 49: SET(X,18): NEXT X: FOR X=52 TO 59: 
SET(X,18): NEXT X: FOR X=72 TO 75: SET(X,18): NEXT X: 
FOR X=87 TO 93: SET(X,18): NEXT X 

9875 FOR X=34 TO 38: SET(X,19): NEXT X: FOR X=54 TO 56: 
SET(X,19): NEXT X: FOR X=71 TO 73: SET(X,19): NEXT X: 
FOR X=89 TO 93: SET(X,19): NEXT X 

9880 FOR X=34 TO 48: SET(X,20): NEXT X: FOR X=87 TO 93: 
SET(X,28): NEXT X 

9885 FOR X=34 TO 42: SET(X,21): NEXT X: FOR X=85 TO 93: 
SET(X,21): NEXT X 

9899 FOR X=34 TO 44: SET(X,22): NEXT X: FOR X=83 TO 93: 
SET(X,22): NEXT X 

9895 FOR X=34 TO 46: SET(X,23): NEXT X: FOR X=81 TO 93: 
SET(X,23): NEXT X 

9998 FOR X=34 TO 48: SET(X,24): NEXT X: FOR X=79 10 93: 
SET(X,24): NEXT X 

9905. FOR X=34 TO 58: SET(X,25): NEXT X: FOR X=77 TO 93: 
SET(X,25): NEXT X 

9919 FOR X=34 TO 52: SET(X,26): NEXT X: FOR X=75 TO 93: 
SET(X,26): NEXT X 

9915 FOR X=34 TO 54: SET(X,27): NEXT X: FOR X=73 T0 93: 
SET(X,27): NEXT X 


$928 FOR X=34 TO 56: SET(X,28): NEXT X: FOR X=71 TO 93: 
SET(X,28): NEXT X 

9925 FOR X=34 TO 54: SET(X,29): NEXT X: FOR X=73 TO 93: 
SET(X,29): NEXT X 

$938 FOR X=34 TO 52: SET(X,3B): NEXT X: FOR X=75 TO 93: 
SET(X,39): NEXT X 

$935 FOR X=34 TO 58: SET(X,31): NEXT X: FOR X=77 TO 93: 
SET(X,31): NEXT X 

9949 FOR X=34 TO 63: SET(X,32): NEXT X: FOR X=65 TO 93: 
SET(X,32): NEXT X 

9945 FOR X=34 TO 63: SET(X,33): NEXT X: FOR X=65 TO 93: 
SET(X,33): NEXT X 

9959 FOR X=34 TO 63: SET(X,34): NEXT X: FOR X=65 TO 93: 
SET(X,34): NEXT X 

9955 FOR X=34 TO 93: SET(X,35): SET(X,36): SET(X,37) :NEXT X 
(Thanks to Robert D. Walsh, 16 Gaston Road, 
Dartmouth, Nova Scotia B2Y 3W1.) 


Mistake in February Issue 

This is probably letter #10000 regarding this matter, 
but on page 49 of the February 1981 issue under 
Helpful Hints there is a mistake in line 140. The line 
should read Z1=Z1-1. The program will then work fine. 


(Thanks to Richard Eidmann, 4244 M Street, 
Philadelphia, PA 19124.) 


Printer Problems with Linefeeds ? 

If your printer occasionally misses a line feed when 
running mailing labels, insert a short time delay in the 
program between line feed commands to give the 
paper advancing ratchet time to fall into place. 
Something on the order of: 


828 FOR Y=1 TO 169: NEXT Y 


It doesn’t slow the throughput down much, and may 
tend to make the alignment with the label stock much 
more dependable. 


with or move up to, dual-headed or eight-inch floppys. 


installment contracts. 


NEWDOS/80 - $135 


5,000,000/10,000,000 BYTES 


SERIES Ill H from MicroeMainframe. Hard disk drive(s) in a Model III ($7,995), or add to your Model I/II! ($3,795). 
SERIES Ill F. Model Ill with a controller board (available separately) and operating system which allows you to start 


GL88 — $150 — Radio Shack General Ledger 1.1 with over 30 added features: A general ledger, classified balance sheet, 
check register and option to use an “automatic” account number or re-do an entry or document. 


AR88 — $200 — Radio Shack Accounts Receivable 1.2 with automatic posting of standard monthly amounts such as 


GL/M1 — $50 — Modifications to convert Radio Shack General Ledger 1.1 to GL8Q. 
AR/M1 — $50 — Modifications to convert Radio Shack Accounts Receivable 1.2 to AR8@. 


GL/M1 and AR/M1 are supplied as program lines which must be MERGED into the original programs, or, send a disk 
copy of the original programs for installation at no additional charge. Documentation (apply to purchase) — 


FTDEM080 — $12 — Displays and Executes the NEWDOS/80 Appendix A programs/ keyboard entries. Requires 32K. 
LDOS - $135 


AT-80 3827 Dismount Dallas, Texas 75211 (214) 339-0498 
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(Thanks to Gordon Speer, 3304 _ Woodlawn Road, 
Sterling, IL 61081.) a 


AT LAST! 


Mass production prices tor high quality software. Buy direct and save 50%. Also 
available for CPM and HDOS. 

DATA BASE MANAGER Mod | & Ill $69, $149 (48K). Mod-ti $199 
Maintain a data base and produce reports, all without user programming. Define 
file parameters and report formats on-line. Key random access. fast multi-key 
sort. field arithmetics, audit tog. label. No time-consuming overlays. 500 happy 
users in one year. Mod-ll and 48K versions have over 50 enhancements. including 
40 fields maximum. “IDM-M2 is great!” US. 


A/® Mod-1 $69 Mod-l $149 Mod-iti $60 
Handles invoices. statements, aging, sales analysis, credit checking, forms input, 


and order entry. Unlike other accounts receivable programs, ours can be used by 
doctors, store managers, etc. 


WORD PROCESSOR $49 
Centers. justifies, indents, and numbers pages. Mod- version features 
upper/lower case without hardware modification! File merge option available. 

MAILING LIST Mod | & Ill $59, $79 (48K). Mod-ll $99 
The best! Compare and be selective. Includes forms input. 5-digit selection code, 

zip code extension, sort on any field, and multipte labels. Who else offers a report 
writer and mesges with word processor? 

(NVENTORY Mod I & tlt $89, $109 (48K) Mod-II $149 
Fast key random access. Reports include order info, performance summary, E00 
and user-specified reports. a people have converted to our system! “Next to 
impossible to damage the file.” 

GL. A/R. A/P. PAYROLL Mod-ll $129 each 
integrated accounting package. 100+ page manual. As opposed to Osbome's slow 
binary search and 64 cme Screen, we use fast ISAM and 80 columns. Dual disk 
and TRSDOS required. 

1216 $99 
A cassette package of 10 business programs for Level (I 16 K systems. Includes 
word processor and data base manager. Poker game $19. 

Most programs are on-line, interactive, random-access, bug-free, documented, 

and delivered on disks. Mod-| programs require 32K TRSDOS. We're #1 in business 
software —don't let our low price fool you! Ask for our free 20-page catalog if 
you're still not convinced. Compiled versions ave available. 


EN MICRO ARCHITECT, INC. 
96 Dothan St., Arlington, MA 02174 


EPSON MX-70/80/FT - $Call 


QUESTIONS AND ANSWERS 
Conducted by Hubert S. Howe, Jr. 


QUESTION 

from Sanford Bendix, 230 S. Aiken Avenue, Pittsburgh, 
PA 15206: | have recently received my free cassette, for 
which | thank you. However, | have just started to use 
the Word Processor program and think that there is a 
bug in line #4110. It reads: 


110 GOSUB 5000: IF A=13 THEN 2900 ELSE IF A<32 THEN 410 


The problem is that you get a “UL ERROR” (undefined 
line) because there is no line 410 to go to as referred to 
at the end of the statement. 

| have not had a chance to study the program 
personally, and would appreciate it if you could please 
advise what the correct number is supposed to be at the 
end of line 4110. Thank you. 


ANSWER 
That should be 4110 at the end of the line. Also check 
a“>" instead of a“ 2?” in our copy. 


QUESTION 

from Richard E. Owen, 2120 Spruce Street, Trenton, NJ 
08638: | have a big problem and | hope you will be able 
to help me. | have a TRS-80 16K Level Il and am in the 
process of adding a disk drive without the use of the RS 
expansion interface. Instead | purchased the 8100 
board by HUH (which, | think, has been changed to 
California Computer Systems), and the Versafloppy II 
disk controller. if you are not familiar with the 8100, | 
shall explain: the board, as claimed by its maker and 
Priority One Electronics, is an S-100 bus interface for 
the TRS-80. However, it also has parallel and serial I/O, 
space for 16K RAM on board, and six slots for S-100 
boards. Before buying the two boards, | placed a call to 
Priority One and asked what was needed to hook up a 
disk drive to the system. They told me that all | would 
need would be a DOS such as CP/M. Now, after 
completing the two boards (I bought them as kits) and 
purchasing a Calcomp Model 140 disk drive, | am lost. 
After reading the Versafloppy || manual, they say | need 
a DDBIOS and a DOS such as CP/M; however, they say 
they load at FOOO and 0000 respectively. Versafloppy 
has the DDBIOS available as a PROM. Would this help 
me? Can | get a standard TRS-80 DOS, or do | have to 
find someone to create a special system to get 
everything up and running ? Right now | feel that | have 
a bunch of non-compatible pieces. | hope that there is 
a reasonable solution, because, like most hobbyists, | 
have a limited budget. 
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ANSWER 

In a nutshell, you have been sold a bill of goods, and 
there is no easy or inexpensive way out for you. This is a 
BIG problem for many people, because they can’t 
really tell what they need from the descriptions of 
products in advertisements, and many of the sales- 
people that are selling these items don’t know what to 
say either, 

The fundamental problem in this whole situation is 
that the TRS-80’s memory is organized differently from 
most other microcomputers. ROM is placed at 0000 
theough 2FFF (or 37FF on the Model 3), and 3800 to 
3FFF contain memory-mapped input output devices. 
RAM doesn’t start until 4000. Most other computers 
start RAM at 0000 and put ROMs up in high memory, 
such as F000. The basic reason why the products you 
have purchased will not work is that you will have to 
move all the TRS-80’s ROM first, and then worry about 
putting in the appropriate software in the form of 
PROMS or files on your disk drive to get your system up 
and running. This is much easier on computers like the 
S-100 systems, where all devices go into separate 
boards in slots on the motherboard, but not ina TRS-80. 

There is a device called the Omikron Mapper which 
relocates the ROM up to C000 and places RAM 
at 0000, but | don’t even know whether it would work 
with the boards you have. It was designed to allow TRS- 
80 users to work with eight-inch disk drives. 

The final difficulty with your configuration is that, 
when it is finished, it will not be a TRS-80! You will 
have to work up your own disk operating system, and it 
may be incompatible with anything else. Sure, the guy 
said that all you need is CP/M, but there are as many 
CP/M systems as there are computer systems, even 
though,when finished, all disk-based programs will run 
on anyof them. The TRS-80 Model | CP/M is different 
from any other version, and may not work with your 
hardware unless you rewrite most of it. 

! would advise you to try to get as much of your 
money back as you can, claiming that the salesmen 
misrepresented the products to you when you pur- 
chased them. You might also sell the boards on the 
used-equipment market by placing an ad in a paper 
like Computer Shopper. The HUH 8100 is useful as a 
means of interfacing special-purpose S-100 boards to 
the the TRS-80, so it is not a useless piece, but the rest 
is not for a TRS-80. You could buy an S-100 mainframe, 
CPU board and RAM and use this equipment with a 
different computer system, but that would be the most 
expensive solution. | would recommend that you get a 
standard TRS-80 Expansion Interface (or maybe some- 


thing like the LNW El) and standard disk drive. Also, 
you should act soon, because there will only be a 
limited number of Expansion Interfaces available this 
year, and after this year it may not be possible to get 
them at all. 


eR KKK 


Cot a question about the TRS-80 ? Send it to Questions, 
H & E Computronics, 50 North Pascack Road, Spring 
Valley, NY 10977. If you wish a personal reply, please 
enclose a self-addressed, stamped envelope. B 


continued from page 21 


2079 REM ENTRY FOR DELETE ROUTINE. 

2089 CLS : PRINT C1;C5 : PRINT @ 41, H; : PRINT @ 12, "Delete" 
2098 PRINT @ 462, "WHAT LINE DO YOU WISH TO DELETE"; 

2198 INPUT L : IF L < @ ORL > H GOTO 2199 

2119 PRINT @ 764, L;": ";A(L) : PRINT @ 584, "DELETE THIS 

LINE? “ 

2128 D=INKEY$ : PRINT D; : IF 0 = "" GOTO 2129 

2136 IF D = "Y" GOTO 2160 

2146 PRINT : PRINT “Delete cancelled" : FOR I2=1 TO 300 

2158 NEXT 12 : CLS : GOTO 1738 : ' RETURN TO EDIT MAIN. 

2168 FOR I=L TO H-1 : A{1)=A(I+1) : NEXT I 

2178 ACH)=""_: H=H-1 : CLS : GOTO 1738 : ' RETURN TO EDIT MAIN. 
2180 REM ENTRY FOR INSERT ROUTINE. 

2198 CLS : PRINT C1;C5 : PRINT @ 41, H; : PRINT @ 12, “Insert"; 
2208 PRINT @ 512, "(INSERTION WILL BE AFTER THE CURRENT LINE)" 
2218 PRINT @ 448, "WHAT IS THE LINE NUMBER YOU WISH TO INSERT"; 
2228 INPUT L : IF L < @ ORL > H GOTO 2229 

2236 IF L = H GOTO 2269 

22468 FOR I=H TO L+l1 STEP -1 

2258 A(I+1)=A(1) : NEXT I 

2260 H=H+1 

2278 PRINT @ 649, "WHAT IS THE NEW LINE?" : PRINT @ 768, ""; 


2280 LINE INPUT A(L+1) : PRINT "NEW LINE LENGTH IS :"; 
LEN(A(L+1)); 

2299 FOR 12=1 TO 308 : NEXT 12 : CLS : GOTO 1738 : ' RETURN 
2309 REM ENTRY FOR TEST BRANCH. 

2318 CLS : PRINT C1;C5 : PRINT @ 41, H; : PRINT @ 12, "Test"; 
2320 Jl=@ : G="" : FOR I=1 TO H 

2338 J=LEN(A(I)) : IF J > 61 GOSUB 1639 

2349 IF J > J1 THEN Jl=J 

2358 NEXT I 

2360 IF Jl < 62 THEN PRINT @ 512, "TEXT LENGTH CORRECT ": : 
GOTO 173p 

2370 CLS : PRINT C1;C5 : PRINT @ 41, H; : PRINT @ 12, "Test"; 
238) PRINT : PRINT "* * * ERRORS FOUND + aiegmiad 

2399 PRINT @ 448,G : PRINT @ 960, "TYPE ENTER TO CONTINUE"; 
2498 D=INKEY$ : IF D = """ GOTO 2499 

2419 PRINT @ 969, STRING$(28,""); : GOTO 1739 

2426 REM TERMINATE ROUTINE 

2430 CLS : PRINT C1;C5 : PRINT @ 41, H; : 

PRINT @ 12, "Terminate"; 

2440 IF H > 48 PRINT "TEXT IS";H;"LINES LONG" : GOTO 1738 
2458 PRINT @ 516, "RETURNING TO MAIN TEST" 

2460 PRINT @ 576, “(TEXT MUST PASS TEST BEFORE PROGRAM WILL 


CONTINUE)" 

2479 FOR I=1 TO 868 : NEXT I : CLS : RETURN 
2489 REM 

2498 REM AUTOMATIC ENTRY ROUTINE. 


2508 INPUT "HOW MANY LINES OF TEXT TO BE ENTERED"; H 

2519 IF H <1 OR H > 48 PRINT "ILLEGAL VALUE, TRY AGAIN" : 
GOTO 2598 

2528 FOR I=1 TO H 

2538 PRINT I; : LINE INPUT ": "; A(I) : NEXT I 

2540 CLS : RETURN 

2558 REM 


Joseph Rosenman 
35-91 161st Street 
Flushing, NY 11358 B 


Unique Software 700 Executive Plaza Bldg. Fort Worth, Texas 76102 


CONVERT * 


Basic from Model | to Model II 


Radio Shack* provides a means to transfer programs. 
Now Unique Software provides a means to CONVERT 
them. PRINT @,CMD, some PEEK, even SET & RE- 
SET, and more are rewritten for execution on a Model II 
What CONVERT cannot rewrite, will be listed by type of 
error and line number. (Avaiable on formatted disk) 


Price includes postage & handling Texas residents add 5 % sales tax. 
Model! disk....$]995 Modell disk. $9495 


() 198] Unique Software 
* Radio Shack is a division of Tandy Corp. & not affiliated with Unique Software 


GRAPHIT 


Don't Settle for Less 


With your Daisy Wheel Printer |] & your Model |. don’t 
settle for distorted hardcopy of graphics on your #1960 
linerprinter. Merge “Graphit” with any Basic program 
& GOSUB64000 to reproduce characters and 
graphics in their exact proportions. “Graphit” works 
with any Model | L2 setup and uses only 414 bytes of 
memory. Instructions for merging cassette to program 
in memory included. (Send SASE for examples.) 
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pS, Editor Assembler ~ 
ED AK For The TRS-80 Models |, Il, il «, Galactic 


EDAS is the ultimate disk based Editor Assembler for the TRS-80 Model I, Il, and Ill computer. Among its features are direct assembly from disk 
source files or memory buffer, IF conditional assembly commands, fully formatted printer output, assembly to disk or to memory, and a full feature 
editor. 


Default file extensions of /ASM for source files and /CMD for object code files are provided. 
EDAS will support both upper and lower case entries. Opcodes and labels entered in lower case can be automatically converted to upper case. 
All EDAS versions respect the HIGH$ memory protect pointer, and also allow for warm restarts from the DOS level or from the system debugger. 


EDAS comes with a complete operator's manual and a cross reference utility program. Model | and III versions also include a disk to tape utility, 
and a CMDFILE utility for disk-to-disk, tape-to-disk, disk-to-tape program loading and concatenation. 


ASSEMBLY FEATURES 


A *GET directive allows assembly directly from disk source files, providing a capacity limited only by the size of the symbol table in memory! Source 
files may also be linked by multiple “GET statements in the main program, allowing literally hundreds of thousands of bytes of source code to be 
assembled. ; 


Conditional assembly is provided through the use of an IF directive. Allowable conditions are Greater Than, Less Than, and Equal. 


Allowable operators are + (addition), - (subtraction), < (shift), & (logical AND), ! (logical OR), # (exclusive OR), * (multiply), / (divide), and % 
(modulo). 


Object code may be assembled to disk or directly to memory. A Branch command allows jumping to the code in memory for debugging, with an exit 
provided back to the editor assembler with the source code intact. 


Assembly to a line printer allows adjustment of page length and lines per page. Also provided are Title, Subtitle, Page, and Space psuedo ops, 
allowing for the exact tabeling and formatting of printed output you need. 


A COM psudeo op allows comment lines to be written to a disk file along with the object code. These comment blocks will not be loaded with thc 
object code, but merely provide an easy way to store such things as copyright messages in your object code files. 


Constants can be entered in hexadecimal, decimal, octal, or binary format. 


The assembler will generate a symbo! table sorted in alphanumeric order. The output will be in three across format, with symbols of up to 14 char- 
acters allowed. An additional cross reference file may also be generated for use with the XREF utility program 


EDITOR FEATURES 


EDAS will Write and Load text files directly to or from disk, with provision for text file concatenation. Many different types of text files can be 
loaded by the editor, including files without line numbers. 


The editor can write source files with or without line numbers, and with or without a header. 


For ease of editing, the editor provides for block Moves of lines, Global replacement of text strings over the entire buffer, and a Find command to 
locate all occurrences of a specified text string. 


Individual line editing maintains command syntax indentical to the BASIC editor - Character Insert, Delete, Change, Locate, Kill, Hack, New Line, 
Display Line, Quit, etc. are all supported. 


The text buffer can be printed in whole or in part, with or without line numbers. 
All versions provided for disk directory displays, and allow the user to kill disk files while remaining in the editor assembler. 


The editor provides over 32K of text buffer space. The Assembler portion of the program may be deleted from within the editor, thus increasing the 
size of the available text buffer by approximately 5K. 


Memory utilization can be determined with the Usage command, which displays the bytes used by the text, the bytes available, and the first free 
address. 


A View command allows review-of disk source file without actually loading the file into the text buffer. 
Ail versions of EDAS provide controlled text scrolling capabilities, as well as a functional Clear Screen key. 


EDAS Model I, Ill 
EDAS Model II 


EDAS SPECIFICATIONS 
HARDWARE REQUIRED: 


All versions require 32K of memory with one disk drive. 


TEXT BUFFER CAPACITY: 
Model t & tll - about 32K (with 48K system) 
Model li - about 40K (with 64K system) 


TEXT FILES: 

Source files are compatible between versions. 
Most ASCII source files may be read. 

Text concatenation is supported. 

Conditional assembly is supported. 

Macros are not supported. 


$79.00 
$179.00 
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Soules fils can be writen al oF bgt ce headers and line numbers. HOUR ey NEW TOLL-FREE 
p to 14 characters are allowed for labels. 24 . 

Linking of source files is supported. ORDER ae ORDER LINE 
OBJECT FILES: LINE (OUTSIDE OF N.Y. STATE) 


Object code may be assembled to disk or to RAM. 
Disk object files are directly executable. 


RAM object code may be executed from the editor. 


COMMANDS: 

The commands and syntax in the Radio Shack Model | Editor Assembler 
are a small subset of EDAS. Users already familiar with that assembler 
will be able to function in EDAS’s advanced environment immediately. 


MANUAL 


The complete manual is over 70 pages and contains complete descrip- 
tions of all commands and parameters. 


| (914) 425-1535 (800) 431-2818 


e All orders processed within 24 Hours 
®@ 30-Day money back guarantee 
@ Add $3.00 for shipping in UPS Areas 
e Add $4.00 for C.0.D. of NON-UPS Areas 
¢ Add $5.00 to Canada or Mexico 
© Add exact postage to all other countries 


All Prices and Specifications Subject To Change Without Notice 


THE ORIGINAL MAGAZINE FOR 
OWNERS OF THE TRS-80"* MICROCOMPUTER 


* TRS-80" IS A TRADEMARK OF TANDY CORP. 


H MONTHLY 
SOFTWARE ; NEWSMAGAZINE 
FOR TRS-80" Fi re 
FOR TRS-80 
OWNERS E a re C. owners 


MONTHLY NEWSMAGAZINE 
Practical Support For Model I, II & III 


e PRACTICAL APPLICATIONS 

e BUSINESS 

¢ GAMBLING ° GAMES 

e EDUCATION 

¢ PERSONAL FINANCE 

e BEGINNER’S CORNER 

e NEW PRODUCTS 

¢ SOFTWARE EXCHANGE 

e MARKET PLACE 

¢ QUESTIONS AND ANSWERS 

e PROGRAM PRINTOUTS 
....- AND MORE 


[Now IN OUR 4th YEAR 


PROGRAMS AND ARTICLES PUBLISHED IN RECENT ISSUES 
INCLUDE THE FOLLOWING: 
e FINCALC - A COMPLETE FINANCIAL APPLICATIONS PACKAGE 
@ INFORMATION SYSTEM REVIEW 
¢ STATISTICAL COMBINATIONS 
@ PASCAL’S TRIANGLE 
e ASSEMBLY LANGUAGE FOR BEGINNERS 
® DISK FILES 
e MOD.-III REVIEW 
¢ KEYBOARD THUNDER AND LIGHTING EXPLAINED 
e DOS COMMANDS IN LEVEL II 
¢ PROBABILITY CURVE GENERATOR 
© CALCULATOR SIMULATIONS 
e THE MEGABYTE GAP 
¢ STOCKS AND BONDS 
e BUDGET ANALYSIS (FOR BUSINESS AND HOME) 
¢ NEWDOS/80 REVIEW 
e DUTCHING - THE HORSE SYSTEM THAT CAN'T LOSE 
¢ A SIMULATED GOLF GAME 
e CONTINUOUS FORM SOURCES 
© TAX/SAVER REVIEW 
AND MORE 


y oUF ON FIN CALC A Complete Financial Analysis Package Used 


x“ 
EL ppscne™ To Calculate Markup, Margin, Annuities, Compound Interest, Nominal 

¥ And Effective Rates, Sinking Funds, Mortgage Calculations, Future Value, 
ae 


© Savings and Insurance, Percentage Difference Between Two Numbers, 
SEND FOR OUR NEW 64 PAGE SOFTWARE CATALOG (INCLUDING LISTINGS OF HUNDREDS OF TRS-80™ PROGRAMS AVAILABLE ON 
CASSETTE AND DISKETTE). $2.00 OR FREE WITH EACH SUBSCRIPTIONS OR SAMPLE ISSUE 


Amortization Schedule and More 
* All programs are supplied on cassette (add $3 for Diskette Version - add $5 for modified Mod-II Version). 


cee eee 


SPOSSSSSHSSSSHSHHSSSHSSSHSSHSSSHSHSHSSHSSHSHSHSHFSSHSSSHSSSSHSSSHHSSHSHSSHSSSSHSSSHSSSHSHSSSSHSHSHSSHSSSSSSSHSSSSSSESSSESSSSHLSHEHEHGESseaseses 
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ONE YEAR SUBSCRIPTION = $24 


NEW!!! 
MOD-II NEWSLETTER 
$18/year (or 12 issues 


NEW TOLL-FREE 
ORDER LINE 


(OUTSIDE OF N.Y. STATE) 


TWO YEAR SUBSCRIPTION $48 ........... , 
SAMPLE OF LATEST ISSUE $4 ..........- (800) 431-2818 —— y) 4 ANStE 
START MY SUBSCRIPTION WITH ISSUE eee 


(#1 - July 1978 © #12 - June 1979 © #24 - July 1980 © #30 - January 1981) LINE 
Rees, (914) 425-1535 


NEW SUBSCRIPTION.......... RRENEWAL.......... 

CREDIT CARD NUMBER EXP. DATE 

SIGNATURE NAME 

ADDRESS CITY STATE ZIP 


*#¢ ADD $12/YEAR (CANADA, MEXICO) - ADD $24/YEAR AIR MAIL - QUTSIDE OF U.S.A., CANADA & MEXICO *** 


MODEL 1 “‘Sithisnen 
or MODEL III 


MODEL III DOSPLUS READY NOWS that's right! DOSPLUS 3.3 for the MODEL lil is available now. We have our MODELIII, 
and now you can have our DOS. All the great features of our popular MODEL { DOS, plus Single or Double pecs BS ration. The best gets better! 
Order now, and soon your MODEL I! will be all the computer it can be. Experience excellence. Experience DOSPLUS. $99.95 


DOSPLUS! the ita hip of the Micro-Systems line. This is the BEST disk operating system currently available. It offers you all the features you 
could ever use, speed, reliability, and much more! Full support of variable length records. No more internal errors during file handling due to poorly 
written operating systems. Allows use of ISAM technique. Supports 35-80 track drives. The two operating systems are basically the same. However, 
Dosplus 3.2D will operate double density. The double density DOS has some differences peculiar to double density operation. Both systems offer DOS 
commands from BASIC, BASIC renum, and BASIC program compressor. DOS utilities include a sector display/modify program, a utility to purge files, 
AND a utility to restore purged or killed files. Free space map and the most comprehensive directory on the market. Try it and you’ll never use anything 


else. All this and much more for only $99.95 either system. 


DOSPLUS CONTAINS ALL OF THE 


FOLLOWING FEATURES..... PLUS seees 7 MORE UTILITIES ***** 


1) Radio Shack compatibility 
2) Error free variable length records 
3) Full lower case detection and support 
4) Repeating keyboard with NO keybounce EVER 
5) Shift [0] typewriter keyboard option 
6) Execute only protection feature for BASIC programs 
7) Automatic track support for 35 through 80 track drives (mixed) 
8) Device I/O handling with FORCE command 
9) Supports high speed clock modification (up to 4.O0mhz) 
10) Supports mixed mode (single & double density) automatically 
11) Allows disable-enable to break key 
12) Allows user to define step rate per drive and re-configure system disk 
13) Allows for efficient use of double-headed drives 
14) Built in screen printer (shift [CLEAR] with [BREAK] key abort 
15) Multiple command chaining with “DO" 
16) Built in memory test with CLEAR command 
17) New printer driver which allows complete forms contro! and paging 
18) Automatic serial printer driver with optional auto linefeed 
19) Execute any DOS command from BASIC and return to BASIC 
20) Free space map of diskette with optional output to printer 
21) Copy with variable length files 
22) Complete RS232 control from keyboard with status check 
23) Create and pre-ailocate files from DOS 
24) Display current date and time from DOS 
25) More information from Directory with optional printer output 
26) Enter DEBUG with shift [BREAK] to allow use of [BREAK] from BASIC 
27) New DISKDUMP/CMD sector display/modify program (works with filespecs) 
28) New DISKZAP/CMD single/double density disk editor 
29) New BACKUP (more reliable, no more pack ID check) 
30) New FORMAT (more reliable, no need to bulk erase disk first) 
31) New MAP utility (maps out disk, showing where files are located) 


PLUS New DosPLus zso 
Extended Disk BASIC 
1) Faster loads and saves 


2) BASIC Reference utility (lines, variables, keywords, printer option) 
3) BASIC Renumber utility (renumber section of text, block text move) 
4) Shorthand features for almost ANY direct command (LOAD, SAVE, etc.) 
5) Shorthand features for editing (listing and editing with: single key) 
6) CMD“M” instantly displays currently set variables 
7) Global search and replace in BASIC text 
8) Line printer TAB to 255 
9) OPEN“E” to end of sequential file (for output) 

10) DI (delete and insert text line) 

11) DU (duplicate text line) 

12) “,R” & “,V" options after LOAD and RUN (files open & save variable) 

13) OPEN"D” allowed (Model || compatible) equal to OPEN“R” 

14) DOS commands from BASIC 

15) Automatic, error-free variable length records 

16) Single step execution with TRON (fabulous for debugging) 

17) CRUNCH (BASIC program compressor) 

18) New TBASIC (tiny BASIC) offers full BASIC commands 


19) TBASIC and DOSPLUS together only use BK of RAM (40K left in 48K TRS-80) 


‘COMMPUTRONICS: 
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DOSPLUS—$99.95 
(MODEL | or MODEL | 


- ie) 
rm NEW TOLL-FREE 


1) Single drive copy 

2) Restore (dead files) 

3) Purge (unwanted files) é 

4) Clearfile (destroys data by writing zeros to file) 

5) Transfer (moves all user files from one disk to another) 
6) Spooler (aliows printing of text while freeing up the CPU) 
7) Crunch (Basic program compressor) 


DOSPLUS gives you more of what you buy 
an operation system for. Speed and reliability 
without sacrificing simplicity and power. If you 
need extra power without extra wait, then you 
need DOSPLUS! 

Single or double density systems available 
for Model |. Model Ill DOSPLUS ready for 
immediate delivery. 

Perhaps the best investment you can make 
for your TRS-80! Listen to what others have 
had to say about DOSPLUS! 


“Overall, DOSPLUS is the fastest operating 
system | have seen.....” 
Pete Carr in 80-US Journal. 


“DOSPLUS.....the better mousetrap.” 
Stewart Fason in 80-Microcomputing 


“On ascale of 1 to 10, give DOSPLUS a solid 9.” 
Reese Fowler in 80-Microcomputing 
(Model Ill DOSPLUS review) 


For the BASIC programmer, our features 
are unmatched. For the average businessman, 
our speed and simplicity cannot be beat. 

So, join the satisfied users who have 
joined DOSPLUS. Experience excellence! 
Experience DOSPLUS! 


DOSPLUS comes complete with full utilities, 
PLUS a FREE patch to enabie Model | Scripsit/ 
Super Script to run on Model Ill UNLIMITED 
Backups! 


It) 


* All orders Mappa within 24-Hours ps re) R D E R Li N E 2 4 ORDER 


* 30-Day money back quarantee on all Software 
* Add $3.00 for shipping in UPS Areas 


% Add $4.00 for C.O.D. or NON-UPS Areas within U.S.A. (OUTSIDE OF N.Y. STATE) LINE 


“gAdd proper postage outside of US., Canada and Mexico (800) 431-2818 (914) 425-1535 


MI55 BITES 


The lights blinked - 


even the slightest power failure 


easy to use - 


just plug your computer into 


MAYDAY.™ 


We honor: 


MAYDAY 


The Complete Uninterruptible Power Supply 


DON’T BLAME 


can ruin a data disk and 
cause loss of the program. 


Protect your time and 
investment - 


for more information contact ... 


Sun - Technology, Ine. 


Box 210 


New Durham, New Hampshire 03855 
(603) 859-7110 


STATISTICAL ANALYSIS PACKAGE 


(Manutacturing high technology products since 1970) 


“Absolutely the best statistical analysis package I've seen 
for a microcomputer...” 
Eugene Allred, President of Consolidated Data Services 


StatPac is a 3-part program written and designed for re- 
search, survey and questionnaire processing, data entry, 
statistical analysis, management and market analysis. 


Whether you’re a researcher, a programmer or reader and 
user of data — StatPac can fit your needs because you 
create the data file format to fit your specifications. 


Stat Pac is the SPSS of small computers. It eliminates 
the need for expensive programming or renting time on 
large mainframe computers. 


Available for Model | (requires NEWDOS) or Model Ill, 2 
disk drives, 48K RAM and a lineprinter. StatPac handles 
all phases of research analysis including: frequency 
analysis, descriptive statistics, crosstabs & chi-square, 
t-test, correlation & linear regression, analysis of variance, 
multiple linear regression and management reports. 


CODEBOOK AND DATA ENTRY 


Enter data using key-to-disc system with 
automatic back-up of data to protect 
against system crashes. Enter survey, re- 
port, test or lab data using fixed or free for- 
mat. Programs feature screen prompting to 
guide data entry operator, automatic error 
detection, user-definable tab stops, 
repeating keyboard, plus much more. 


DATA MANIPULATION 


Edit your files with fast machine language 
editor using “pencit”-like commands, bet- 
ter than “pencil.” Verify data files for “out- 
of-bounds" entries. Recode and transform 
data using conditional and absolute re- 
codes and unlimited logical operators. 
Edit files larger than memory size. Accepts 
up to 2000 cases and up to 255 variables. 


STATISTICAL ANALYSIS AND 
BATCH PROCESSING 


Create a “task control file” to specify all 
analysis for batch processing. Save, edit 
or reuse task control file on other data 
sets. Select if” feature allows analysis on 
partial data sets. All outputs to parallel or 
RS232 lineprinter. Error trapping features 
minimize aborted jobs. 


Total package of 3 disks and extensive step-by-step user's manual is $185. Manual may be 
purchased separately for $30, and may be applied to the purchase price. Entire package in- 
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cludes over 30 integrated programs. 
Write or call for free 16 page brochure. 


Walonick Associates 
5624 Girard Ave. So. 
Minneapolis, MN 55419 


(612) 866-9022 
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“TRS80 color 


From the January 1981 issue of the CSRA Computer 
Club newsletter: 


There was some amusement at the Novem- 
ber meeting when the Radio Shack repre- 
sentatives stated that the software in the 
ROM cartridges could not be copied. This 
month's 68 Micro Journal reported they had 
disassembled the programs on ROM by 
covering some of the connector pins with 
tape. They promise details next month. Never 
tell a hobbyist something can't be done! This 
magazine seems to be the only source so far 
of technical informations on the TRS-80 color 
computer®. Devoted to SS-50 6800 and 
6809 machines up to now, 68 Micro Journal 
plans to include the TRS-80 6809 unit in 
future issues. 


To get the MOST from your 6809 CPU - This is the 


BEST SOURCE! The ONLY Magazine for the 6809 
Computer. Months Ahead of All ers! 


68 MICRO JOURNAL 


USA 
1 Yr.- $18.50 2 Yr.- $32.50 3 Yr. - $48.50 
“Foreign Surface Add $12 Yr. to USA Price 
Foreign Air Mail Add $35 Yr. to USA Price 
*Canada & Mexico Add $5.50 Yr. to USA Price 


THE BIGGEST NAME IN LITTLE COMPUTERS™ 


TRS-80° Model II— Your Best Buy 
In a Business Microcomputer 


15% 
OFF! 


on 


TRS-80 computers, 
software and peripherals 


Similar values on all merchandise 


CALL COLLECT: 


915-283-2920 
Van Horn Office Supply - 
701 W. Broadway -- PO Box 1060 
Van Horn, Texas 79855 
& 


DEALER GO55 — 
Form F48 Provided — 
Standard Warranty in Effect 
THE NATIONWIDE SUPERMARKET OF SOUND® 


A small business needs 
a word processing system 
with a small price tag. 


Owning a small office computer can make 
sense by saving time. But its software system 
should make sense too—it should be inexpen- 
sive, easy to use, perform routine office chores. 
It should be Kwikrite. 

Kwikrite consists of an instruction manual 
and 5%” floppy disk, programmed for TRS-80 
Model I and Model III, but it is adaptable to most 
small computers. It will write form letters with 
customized inside addresses and salutations; 
print out continuous labels; write standardized 
report pages (manuals, manuscripts, etc.); and 
create title pages for those reports, properly 
centered and spaced. 
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Kwikrite is so easy to use that you can begin 
operation immediately. And it is so inexpensive, 
it will quickly pay for itself. 

So send today for Kwikrite, the system that 
makes sense. 


The Kwikrite program requires 16K (1) disk, 
written in BASIC, source code is easily modified 
for tape. It costs $37.50 plus $2.00 for shipping. 
MasterCard or VISA accepted. Catalogue of other 
software available free. Send order to: M. B. Rowe 
& Associates; Suite 1, Southgate Office Building; 


716 Fourth Street S.W.; kwikrite 


Hickory, North Carolina 
28601; 704-328-2386. $3750 


We win. 


NEC 4116 200 1795 
DIP SHUNTS (FOR KEYBOARD MEM UPGRADE) ... . 4.00 


TRS-80 MOD | HARDWARE 


PERCOM DATA SEPARATOR 27.00 
PERCOM DOUBLER 159.00 
DOUBLE ZAP II/80 (CONVERTS ND/80 TO D.D.) 45.95 


MPI 40 TRACK DISK DRIVE (B-51) 299.00 
SHUGART 40 TRACK DISK DRIVE (400L) 299.00 
MPI 80 TRACK DISK DRIVE (B-91) 429.00 
TANDON 80 TRACK DISK DRIVE 429.00 
TANDON 40 TRACK DISK DRIVE 299.00 
LNW DOUBLER WITH DOSPLUS 3.3D 159.00 
PERCOM SPEAK-2ME-2 64.95 
TRS-80 SOFTWARE 

LAZY WRITER MOD | 125.00 
PROSOFT MOD |, Il! 79.00 
SPECIAL DELIVERY (MAIL LIST PROG) MOOI, Il. . 119.00 
X-TRA SPECIAL DELIVERY (MAIL LIST PROG) 199.00 
TRACKCESS MOD | 24.95 
OMNITERM SMART TERMINAL PKG MOD |, Ill 89.95 
PRINTERS 

ANADEX DP 9000 1195 00 
ANADEX DP 9001 1195.00 
ANADEX OP 9500 1295 00 
ANADEX DP 9501 1295 00 
CENTRONICS 739 765 00 
C-ITOH 25 CPS PARALLEL 1440 00 
C-ITOH 25 CPS SERIAL 1495 00 
C-ITOH 45 CPS PARALLEL 1770 00 
C-ITOH 40 CPS SERIAL 1870.00 
C-ITOH TRACTOR OPTION 175 00 
EPSON MX-80 SCALL 
EPSON MX-80 F/T $CALL 
EPSON MX-100 F/T $CALL 
IDS-445G PAPER TIGER 795.00 
IDS-460G PAPER TIGER 1149.00 
1DS-560G PAPER TIGER 1495.00 
INFOSCRIBE 500 9X9. 150 CPS 

(Tl-810 REPLACEMENT) 1495 00 
MALIBU 200 DUAL MODE 2995.00 
NEC SPINWRITER 5510 SERIAL RO 2595.00 
NEC SPINWRITER 5530 PARALLEL RO 2595.00 
NEC SPINWRITER 5500 D SELLUM OPTION 2795.00 
NEC SPINWRITER 3500 SELLUM OPTION 2195.00 
OKIDATA MICROLINE 80 399.00 
OKIDATA MICROLINE 82 599.00 
OKIDATA MICROLINE 83 795.00 


CP/M is a trademark of Digital Research. 


MODEMS 


NOVATION CAT ACOUSTIC MODEM 
NOVATION D-CAT DIRECT CONNECT MODEM 
NOVATION AUTO-CAT AUTO ANSWER MODEM 
UDS 103LP DIRECT CONNECT MODEM 
LEXICON LX-11 MODEM 


DISKETTES 


MD 525-01.10.16 
MD 550-01.10.16 
MD 577-01,10,16 
MD 557-01.10,16 
FD 32 OR 34 -8000 


DISKETTE STORAGE 


5%” PLASTIC LIBRARY CASE 

8" PLASTIC LIBRARY CASE 

PLASTIC STORAGE BINDER WITH INSERTS 
PROTECTOR 

PROTECTOR 8" 


CP/M SOFTWARE 


MICROSOFT BASIC-80 

MICROSOFT BASIC COMPILER 

MICROSOFT FORTRAN-80 

PEACHTREE SYSTEMS 

MAGIC WAND (REQUIRES CP/M) 

WORD STAR (REQUIRES CP/M) 

MAILMERGE (REQUIRES WORD STAR) 
SPELLGUARD 

CP/M PICKLES & TROUT FOR TRS-80 MOD II 


(213) é 


31245 La Baya Drive, Westlake Village, California 91362 


Compare our prices with 
any inthe magazine. 


145 00 
155 00 
229 00 
175 00 
115 00 


26.50 
44.50 
34.80 
45.60 


45.60 


2.50 
3.50 
9.95 
24.95 
29,95 


299.00 
319.00 
399.00 

CALL 
275.00 
310.00 
100.00 
239.00 
175.00 
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CORVUS 
TRS-80 MOD |, Il 
Controller, Case/P.S., Operating System, A&T 
5 Megabytes 3095.00 
10 Megabytes 4495.00 
20 Megabytes 5395.00 
MIRROR BACK-UP 700.00 
SPECIALS 
NO. 1 - TRS-80 DISK & OTHER MYSTERIES/BOX 
OF DISKS/PLASTIC LIBRARY CASE 44.50 
NO. 3 - NEWDOS/80 2.0/BOX OF D-SKS/PLASTIC 
LIBRARY CASE 149.00 
NO. 4 - MICROSOFT BASIC COMPILER/BOX OF 
DISKS/PLASTIC LIBRARY CASE 190.00 


NO. 5 - MICROSOFT BASIC D & OTHER MYSTERIES/ 
BOX OF DISKS/PLASTIC LIBRARY CASE . . 49.95 
NO. 6 - DOUBLE DENSITY SPECIAL NEWDOS/ 
80 DOUBLE ZAP Il. BOX OF DISKS. PLASTIC 


LIBRARY CASE 309.00 

TANDON 40 TRACK WITH NEWDOS + 320.00 
SUPPLIES 

AVERY TABULABLES 

1,000 3-1/2 x 15/16 8.49 
3,000 3-1/2 x 15/16 14,95 
5.000 3-1/2 x 15/16 19.95 
UARCO PAPER (Prices F0.8. S.P) 
9-1/2 x 11 18 |b white 29.00 
14-7/8 x 11 18 lb white 39.00 


We stock a complete line of computer covers, printer 
ribbons, print wheels & NEC thimbles. Call us for your 
needs. 


We built a reputation on our 
prices and your satisfaction. 


We guarantee everything we sell for 30 days. If anything 
is wrong, just return the item and we'll make it right. 
And, of course, we'll pay the shipping charges. 

We accept Visa and Master Card on all orders. COD 
accepted up to $300.00. We also accept school pur- 
chase orders. 

Please add $2.00 for standard UPS shipping and 
handling on orders under 50 pounds, delivered in the 
continental U.S. Call us for shipping charges on items 
that weigh more than 50 pounds. Foreign, FPO and APO 
orders please add 15% for shipping. California res- 
idents add 6% sales tax. 


The prices quoted are-only valid for stock on hand and all prices are subject to change without notice. 


U.S. POSTAGE 


(COMPUT ROMNICS: STANDARD 


50 N. PASCACK ROAD BULK RATE 
SPRING VALLEY, NEW YORK 10977 Permit #58 


New City, N.Y. 10956 


FORWARDING POSTAGE 
GUARANTEED 


RETURN POSTAGE 
GUARANTEED 


Spelling Errors? 
Does your TRS-80* wordprocessor need help? 


CAN SPELL rendezvous AND mnemonic 
AND OVER 38,000 OTHER WORDS 


Now let your TRS-80 and Proofreader by Soft-Tools check your Scripsit*, 
Electric Pencil, or other documents for spelling and typographical errors. 
It has all of the features needed to meet your proofreading requirements. 


e Checks every single word of even your biggest document 
in under 5 minutes. 


¢ The 38,000 word dictionary is one of the largest available. 


* Dictionary can be easily extended to add more words such 
as technical terms or names. 


e All unkriown words are listed on the screen and can be saved 
on a file for printing. 


¢ Works with almost any TRS-80 wordprocessor including 
Scripsit and Electric Pencil. 


e Comes with complete and easy to understand User’s Manual. 


* Developed for the TRS-80 by a Ph.D. in Computer Science. 


MODEL-! Requires 32 K RAM, 1 disk drive, TRSDOS* or NEWDOS $54.00 
MODEL-II Requires 64K RAM, 1 disk drive, TRSDOS Version 2.0.......... $109.00 
MODEL-III Requires 32 K RAM, 1 disk drive, TRSDOS 


User’s Manual only, specify model 
When ordering, specify model, memory size, number of drives. 
Other professional quality software tools available from Soft-Tools 
include: SOFT-SCREEN™- a full screen text editor for the Model-II 
and III, Ratfor - a structured programming language pre-processor for 
FORTRAN, PP-Ratfor - an automatic program pretty printer for Ratfor, 
plus more in the coming months. Please call or write for more details. 


wOTVe VOOLY 


Orders sent postpaid by first class mail. BOR GF Fe FOOs 


Terms: Cash, check, money order, VISA, 


or MASTERCARD. NM residents add 4% tax. 
Dealer inquiries invited 


Proofreader, Soft-Tools, and Soft-Screen are trademarks of Soft-Tools. 


* Trademark of Tandy Corporation 


P.O. Box 339 
Dept. H 

Tijeras, NM 87059 
(505) 281-1634 


